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友 


ll 


选 自 未 完成 的 《拥抱 编程 年 华 》" 
一 一 Erlang 语 言 的 作者 Joe Armstrong 


“Gmail 编 辑 器 不 能 正确 排版 引文 格式 。” 

“这 可 够 丢人 的 ,” 蕊 杰 里 说 ,“ 看 来 他 们 负责 引文 格式 的 程序 员 水 平 不 行 ， 企 业 文化 也 在 走 
下 坡 路 。 

“我 们 该 怎么 办 ?” 

“今后 我 们 招 匡 的 程序 员 ， 一 定 得 通读 过 《追忆 似 水 年 华 》“。” 

“ 读 过 全 部 七 卷 ?” 

“ 没 错 。 

“ 读 这 书 能 让 人 更 好 地 驾驭 标点 符号 ， 从 而 不 至 于 在 引文 格式 上 犯错 ? ” 

“ 那 倒 未 必 ， 不 过 他 们 会 因此 拥有 更 精湛 的 编程 技艺 。 这 种 感觉 只 可 意 会 、 不 可 言传 ………” 


学 编程 就 好 比 学 游泳 ,再 好 的 理论 地 不 如 一 头 扎 下 水 ， 扑 腾 春 呼吸 新 鲜 空 气管 用 。 在 初次 没 
入 水 面 的 那 一 刻 ， 你 必定 会 恢 慨 失措 ,但 当 你 香 力 浮 出 水 面 、 大 口 大 口 地 中 看 气 ， 你 又 会 无 比 喜 
悦 。 这 时 你 心里 明白 :“ 我 学 会 游泳 了 。” 至 少 我 当初 学 游泳 那 会 儿 ， 就 是 这 种 感受 。 

编程 也 同样 如 此 一 一 迈 出 第 一 步 最 难 。 因 此 你 需要 一 位 好 老师 ， 改 励 你 勇敢 地 跳 和 人 水中。 

Bruce Tate 正 是 这 样 的 好 老师 。 他 写 的 这 本 书 ， 市 你 从 编程 学 习 中 最 困难 的 地 方 人 手 ， 辟 励 
你 大 胆 迈 出 第 一 步 。 

假设 你 想 学 习 某 门 语 言 ,而且 顺利 完成 了 下 载 安 半 编译 右 或 解释 硕 的 艰巨 任务 , 接 下 来 要 做 





























OQ 英文 原文 为 How Proust Can Make You a Better Progorammer( 查 不 到 任何 相关 信息 ， 当 为 杜撰 之 作 )， 直 译 应 为 《 普 
鲁 斯 特 如 何 让 你 成 为 更 优秀 的 程序 员 》, 但 其 书 名 模仿 阿兰 : 德 波 顿 ( Alain de Botton ) 的 《拥抱 逝 水 年 华 》( How 
Proust Can Change Your Life )， 译 为 《拥抱 编程 年 华 》 似 更 贴切 。 

《追忆 似 水 年 华 》( 4 la recherche du temps perdu )， 法 国 作 家 马 塞 尔 ' 普 鲁 斯 特 所 著 小 说 ， 共 七 卷 ， 细 致 刻画 了 19 
世纪 末 20 世 纪 初 的 法 国 上 流 社 会 和 其 中 的 文人 雅士 们 。 不 同 于 传统 文学 单纯 地 摘 写 人 类 社会 ， 该 小 说 着 重 于 分 析 
人 的 心理 情绪 ， 首 次 在 文学 作品 中 成 束 地 谢 析 了 人 类 情感 ， 开 “意识 流 ” 小 说 之 先河 ， 标 志 着 文学 史上 一 种 新 文 
学 形式 的 诞生 。jJoe Armstrong 为 何 依 杜 所 作品 中 的 对 话 来 表明 ， 谈 《追忆 似 水 年 华 》 可 提高 编程 水 平 ? 据 本 书 作 
者 Bruce Tate 解 释 ， 此 书 让 人 更 好 地 感受 生活 、 理 解 生 活 、 改 变 生 活 , 自然 也 能 让 人 成 为 更 优秀 的 程序 员 。 真 是 颇 
具 祥 意 。 
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2 序言 


什么 ”你 用 它 写 的 第 一 个 程序 ， 会 是 个 什么 样子 ? 

Bruce 回 答 得 十 分 巧妙 。 他 在 这 本 书 里 ， 展 示 了 许多 完整 程序 和 代码 片段 ， 你 只 和 需 将 它们 一 
一 输入 ， 看 看 结 采 是 否 与 书 上 相同 。 也 束 是 说 ， 你 先 不 要 想 肴 日 己 编 写 程 序 ， 而 是 先 把 书 中 范例 
全 痢 实 现 一 遍 。 随 看 信心 渐 长 ， 你 会 逐渐 拥有 独立 完成 编程 项 目的 能 

获得 任何 新 技能 的 第 一 步 ， 是 先 别 想 看 独立 解决 什么 ,而 是 重复 一 所 前 人 已 苋 之 事 , 这 是 千 
握 一 门 技 能 最 快 的 方法 。 

用 一 门 新 语言 上 手 编 程 的 过 程 , 与 其 说 是 投入 大 量 时 间 反 复 实 践 , 试图 理解 语言 背后 缠 含 的 
深奥 原理 , 还 不 如 说 是 让 分 号 、 逗 号 各 就 各 位 , 同时 读 懂 出 错时 系统 反馈 的 千奇百怪 的 错误 信息 。 
只 有 不 断 提高 编程 水 平 , 让 目 己 超越 先 输入 代码 、 再 等 待 编译 成 功 的 枯燥 阶段 ,你 才 有 能 力 思考 
程序 语言 中 各 种 语法 结构 的 含义 。 

路过 输入 、 运 行程 序 的 门槛 后 ， 你 会 有 如 释 重负 的 感 党 ， 因 为 潜意识 将 接管 余下 的 工作 。 意 
识 刚 琢磨 出 分 写 放 哪儿 , 潜意识 就 已 明日 了 表面 结构 下 的 深层 含义 。 这样 下 去 , 你 终 会 有 所 顿悟 ， 
理解 某 个 程序 逻辑 的 更 深层 含义 ， 某 种 语言 结构 如 此 特殊 的 原因 ， 等 等 。 

对 几 门 语言 均 略 知 一 二 ， 这 其 实 是 一 项 相当 实用 的 技能 ， 因 为 我 肖 常 发 现 , 网 上 的 某 个 程序 
有 助 于 解决 手头 问题 ， 却 没 法 直接 拿 来 使 用 ,还 得 针对 问题 稍 作 调整 才 行 。 这 程序 用 什么 语言 写 
的 都 有 可 能 ， 所 以 慌 点 儿 Python、Ruby 什 么 的 束 非 常 管用 。 

每 门 语 言 都 日 有 一 套 惯 用 法 。 它 们 各 有 所 长 ， 亦 各 有 所 短 。 通 过 学 习 各 种 不 同 的 编程 语言 
你 会 明白， 哪 门 博 言 最 适宜 解决 自己 当下 关注 的 问题 。 

Bruce 对 编程 语言 的 爱好 不 拘 一 格 ， 这 真是 你 我 之 他。 他 不 仅 精 通 那 些 声名 里 闭 的 语言 ， 比 
如 Ruby， 还 了 解 那些 鲜 为 人 知 的 声言 ， 比 如 Io。 编 程 说 到 底 是 个 理解 问题 ， 理 解说 到 底 又 是 个 思 
想 问题 ， 因 此 ， 硅 想 深 入 理解 编程 的 方方面面 ， 润 察 新 近 涌 现 的 思想 是 必 不 可 少 的 一 环 。 

精 于 禅宗 的 大 师 会 告诉 你 ,拉丁 语 学 得 越 好 ， 数 学 也 就 越 好 。 编 程 也 同样 如 此 。 通 过 人 研究 远 
辑 式 编程 或 国 数 式 编 程 ， 你 能 领悟 到 面 回 对 象 编程 的 精华 ; 通过 学 习 汇 编 语 言 ， 你 能 更 透彻 地 理 
解 旺 数 式 编程 。 

在 我 做 程序 员 时 ， 对 比 各 门 编程 声言 的 书籍 曾 一 度 盛行 。 这 些 大 部 头 书 多 市 有 学 术 鹏 调 ， 至 
于 如 何 去 真正 用 好 哪 门 语言 ， 则 少 有 涉及 。 这 如 实 反 映 了 那个 年 代 的 技术 发 展 水 平 。 当 时 ,我们 
只 能 从 书本 上 了 人 解 某 门 语言 的 诸 般 理念 ， 想 用 它 实 战 几乎 不 太 可 能 。 

如 今 ， 我 们 不 仪 能 了 解 这 些 理念 ,还 能 对 它们 实践 一 番 。 位 立 池 上 畔 、 畅 想 游 泳 之 妙 ， 较 之 亲 
号 跳 人 水 中 、 畅 享 戏 水 之 乐 ， 二 者 终究 不 可 同日 而 语 。 

我 由 衷 地 推 存 这 本 书 。 也 希望 你 在 阅读 它 的 时 候 ， 能 够 像 我 一 样 ， 尽 情人 享受 其 中 的 乐趣 。 














































































































Joe Armstrong，Erlang 语 言 之 父 
2010 年 3 月 2 日 
于 斯 德 哥 尔 摩 
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这 是 我 付出 最 多 的 一 本 书 , 但 回报 也 同样 最 为 丰厚 。 在 大 家 为 我 提供 的 各 种 帮助 下 ,我 才 得 
以 顺利 写 完 此 书 。 首 先 ， 我 一 定 要 感谢 我 的 家 人 。Kayla 和 Julia， 你 们 的 写作 让 我 尺 走 。 你 们 今 
后 定 能 达到 超 乎 自己 想象 的 高 度 。Maggie， 你 是 我 的 开心 果 ， 也 是 我 的 灵感 源泉 。 

感谢 Ruby 社 区 中 的 Dave Thomas， 是 你 市 我 来 到 这 门 彻底 改变 我 职业 生涯 、 让 我 重 拾 编程 乐趣 
的 语言 面前 。 还 要 感谢 Matz", 你 的 友情 分 享 让 读者 有 幸 欣 党 到 你 的 真知 灼 见 。 你 邀请 我 访问 日 本 ， 
证 我 有 机 会 杀 目 拜访 Ruby 诞 后 之 地 ， 这 段 经 历 对 我 写作 的 局 发 是 你 难以 想象 的 。 此 外 ， 我 要 感谢 
的 人 还 包括 Charles Nutter” 、Evan Phoenix”、Tim Bray ， 感 谢 你 们 与 我 就 书 中 话题 交换 意见 。 我 们 
交谈 的 内 容 或 许 索 然 无 味 ， 但 对 我 提炼 和 加 工 “Ruby 一 章 ” 要 点 却 着 实 大 有 助 益 。 

感谢 Io 社 区 中 的 Jeremy Tregunna 带 我 入门 ， 并 在 本 书 中 分 享 了 一 些 精 妙 范 例 。 你 所 做 的 审 
阅 工 作 也 极其 出 色 ， 不 仅 反馈 及 时 ， 而 且 令 本 章 内 容 更 加 充实 有 力 。 还 要 感谢 Steve Dekorte”， 
无 论 编 程 语言 市 场 认 同 与 否 ， 你 都 创造 了 一 门 超凡 的 语言 。 它 的 并 发 特性 激动 人 心 ,， 其 日 身 也 散 
发 着 与 生 俱 来 的 魅力 。 在 我 眼中 , 它 无 疑 是 一 门 极 优秀 的 语言 。 谢谢 你 玫 我 这 只 及 乌 搞定 了 安装 
问题 ， 也 谢谢 你 的 精心 审阅 ， 还 有 那 帮 我 理解 了 Io 本 质 的 访谈 。 你 俘虏 了 提前 试 恋 本 书 的 该 者 的 
心 ， 让 Io 成 为 他 们 最 喜爱 的 语言 。 

感谢 Prolog 社 区 中 的 Brian Tarbox 与 读者 分 享 你 那 非 同 几 响 的 经 历 。 你 的 海豚 人 研究 项 目 ( 某 
一 期 Nova" 曾 以 此 为 内 容 ) 为 这 一 章 增添 了 生动 有 趣 的 情节 。 特 别 要 感谢 Joe Armstrong， 你 的 反 
僻 不 仅 对 “Prolog 一 草 ”、 而 且 对 全 书 的 形成 发 展 前 有 关 喘 大 帮助 。 还 要 感谢 你 提供 的 地 图 看 色 的 
例子 以 及 对 Append 的 见解 ， 它们 都 是 在 恰当 时 间 出 现 的 恰当 示例 。 
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中 松本 行 维 (Mastumoto Yukihiro ),，Ruby 语 言 之 父 , 其 探索 程序 设计 思想 和 方法 的 经 典 作 品 《 松 本 行 弘 的 程序 世界 》 
已 由 人 民 邮 电 出 版 社 出 版 。 一 一 编者 注 

@ JRuby 的 核心 开发 者 之 一 。( 以 下 注释 知 无 特殊 说 明 ， 均 为 译 者 注 。) 

(3) Rubinius (Ruby 语言 的 一 种 实现 ) 的 发 明 者 。 

由 曾 任 Sun 公 司 Web 技 术 总 监 ， 现 任 Google 公 司 开 发 大 使 ( Developer Advocate )， 主 要 关注 Android。 同 时 ， 他 还 是 多 
家 公司 的 联合 创始 人 。 

G@) Io 语言 的 核心 开发 者 之 一 。 

(0 Io 语 言 的 发 明 者 ， 同 时 也 是 核心 开发 者 之 一 。 

oO 摩托 罗拉 公司 系统 工程 组 的 杰出 工程 师 ， 自 PDP-11 计 算 机 开始 编程 ， 经 验 极为 丰富 。 

一 档 美国 剧 集 的 名 字 ， 由 公共 电视 网 ( Public Broadcasting Service, PBS ) 播 出 。 每 一 期 节目 都 会 采访 一 位 科学 家 ， 
并 以 该 科学 家 的 人 研究 工作 为 主题 进行 探讨 。 其 节目 主 有 科学 气息 ， 颇 受 美国 旋 至 世界 各 地 观众 的 欢迎 。 
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2 致 谢 


感谢 Scala 社 区 中 我 的 好 友 Venkat Subramaniam "。 你 写 的 那 本 Scala 书 既 通 俗 又 有 料 ， 连 我 都 
不 禁 为 之 倾倒 。 十 分 感激 你 的 审阅 、 以 及 审阅 后 提出 的 些许 建议 。 这 些 建议 于 你 只 是 举 手 之 芳 ， 
于 我 却 减轻 了 极 大 负担 ， 让 我 可 以 把 精力 集中 在 传道 授 业 的 本 原 上 。 还 要 感谢 Martin Odersky”， 
我 们 之 前 虽 素 昧 平生 ,但 你 仍 欣 然 与 本 书 读者 分 享 观点 。Scala 走 了 一 条 与 众 不 同 而 荆 杯 丛生 之 路 ， 
因为 它 力图 把 函数 式 编程 和 面 癌 对 象 两 种 疙 型 合 二 为 一 ,你 们 为 此 所 做 的 努力 ,我 们 都 看 在 眼 里 、 
记 在 心 上 。 

再 次 感谢 Erlang 社 区 中 的 Joe Armstrong。 你 的 友 状 与 活力 ， 帮 我 理 清 了 初 写 此 书 时 错综复杂 
的 思路 。 你 不 知 疲倦 地 推广 这 一 理念 : 系统 应 当 以 分 布 式 、 容 错 的 方式 构建 出 来 。 现 今 推广 工作 
已 初 见 成 效 。 和 本 书 其 他 语言 的 任何 概念 都 不 大 一 样 ， 我 觉得 Erlang“ 就 让 它 前 溃 ” 的 哲学 特别 
实用 。 希 望 能 看 到 Erlang 的 这 些 思 想 越 来 越 多 地 应 用 于 实践 。 

感谢 Clojure 社 区 中 的 Stuart Halloway”， 你 的 审阅 意见 督促 我 加 倍 努 力 ， 让 这 本 书 精益 求 精 。 
你 对 Clojure 的 深刻 理解 与 独特 直觉, 将 其 精 要 之 处 一 一 展现 在 了 我 的 面前 。 你 写 的 那 本 书 也 次 次 
影响 了 Clojure 这 草 ,， 甚至 切实 改变 了 我 处 理 其 他 草 和 问题 的 方式 。 我 也 十 分 赞 贫 你 在 咨询 业 的 工 
作 方 法 ， 是 你 把 该 行业 迫切 需求 的 简洁 和 高 效 引 入 进来 。 我 还 要 感谢 Rich Hickey ， 你 让 我 了 解 
到 这 门 语 言 如 何 诞 生 、 以 及 它 为 什么 是 一 门 Lisp 方 言 。 你 的 某 些 思想 虽 顺 为 极 闪 ， 却 相当 实用 。 
祝贺 你 ， 你 又 发 现 了 一 条 Lisp 的 革新 之 路 ”。 

感谢 Haskell 社 区 中 的 Phillip Wadler”， 你 让 我 有 机 会 深入 了 解 Haskell 的 诞生 过 程 。 在 我 们 交 
流 了 传授 知识 的 感受 之 后 ， 我 发 现 你 真是 这 方面 的 行家 里 手 。 还 要 感谢 Simon Peyton-Jones”"， 能 
把 你 的 访谈 、 深 刻 见 解 和 独到 观点 种 给 读者 ， 对 我 而 言 无 疑 是 一 大 乐事 。 

本 书 的 审阅 者 们 非常 漂亮 地 完成 了 审阅 任务 。 这 里 ， 我 要 感谢 Vladimir G. Ivanovic、Craig 
Riecke、 Paul Butcher、 Fred Daoud、 Aaron Bedra、 David Fisinger、 Antonio Cangiano、 Brian Tarbox, 
你 们 组 成 了 我 合作 过 的 最 有 力 的 一 文 审阅 团队 。 有 了 你 们 ， 这 本 书 才能 如 此 出 色 。 我 知道 ， 逐 字 
逐 句 地 仔细 审阅 一 本 书 需要 耗费 极 大 精力 , 也 是 回报 与 付出 不 成 正比 的 一 项 工作 。 那些 一 如 既往 
热爱 技术 图 书 的 人 们 都 会 对 你 们 心 存 感激 。 硅 没有 你 们 ， 出 版 业 将 不 复 存 在 。 

我 还 要 感谢 那些 分 至 语言 偏好 和 编程 哲学 方面 见解 的 人 。 在 我 写 书 的 不 同 阶 段 ，Neal Ford、 
John Heintz、Mike Perham、Ian Warshak 都 做 了 重要 贡献 。 与 他 们 谈天 说 地 让 我 获 益 良 多 ， 也 让 







































































(DD 多 本 技术 书 的 作者 ， 包 括 《 Scala 程 序 设 计 : Java 虚 拟 机 多 核 编程 实战 入 《高 效 程序 员 的 45 个 习惯 : 敏捷 开发 修炼 
之 道 》 等 。 

( Scala 语 言 的 发 明 者 ， 并 建立 了 支持 和 推广 Scala 的 公司 Typesafe。 

@) Programming Clojure 一 书 的 作者 。 





(4) Clojure 语 言 的 发 明 者 。 
(GO) 为 什么 要 说 “又 ” 呢 ?” 实 际 上 ，Rich Hickey 在 发 明 Clojure 之 前 ， 还 开发 过 一 个 类 似 于 Clojure 但 位 于 .Net 平 台 上 的 
项 目 dotLisp。 





(0) 美国 计算 机 科学 家 ， 爱 丁 堡 大 学 理论 计算 机 科学 教授 ，Haskell 语 言 的 设计 者 之 一 。 他 在 编程 语言 设计 和 类 型 论 等 
领域 功勋 早 闭 ， 包 括 建立 国 数 式 编程 的 基本 理论 、 将 单子 (monad ) 引入 函数 式 编程 、 设 计 Haskell 语 言 等 。 

中 英国 计算 机 科学 家 ， 格 拉 斯 哥 大 学 荣誉 教授 ， 也 在 剑桥 大 学 指导 博士 生 。 他 是 Haskell 的 设计 者 之 一 ， 将 惰性 求 值 
( lazy evaluation ) 机 制 引 入 Haskell, 并 领导 开发 了 著名 的 格拉 斯 哥 Haskell 编 译 带 ( Glasgow Haskell Compiler, GHC )。 
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致 谢 3 


我 在 书 里 的 表现 比 我 真实 水 平 高 了 不 少 。 

还 有 试 读者 , 谢谢 你 们 阅读 本 书 ， 并 锻 策 我 不 断 前 进 。 你 们 的 评论 让 我 感觉 到 ， 你们 有 不 少 
人 真是 在 用 心 学 这 些 语 言 ， 而 不 只 是 草 重 浏览 一 届 了 事 。 我 已 根据 你 们 的 评论 多 次 修改 了 本 书 ， 
而 且 我 希望 在 本 书 的 整个 生命 周期 当中 ， 这 样 的 修改 多 多 益 善 。 

最 后 , 我 要 和 癌 “Pragmatic Bookshelf 从 书 ” 团队 致 以 最 诚挚 的 感谢 。 Dave Thomas 和 Andy Hunt， 
你 们 二 位 作为 程序 员 也 好 ,作为 技术 书 作 者 也 好 ,都 对 我 的 职业 生涯 有 不 可 估量 的 巨大 影响 。 你 
们 的 出 版 平台 , 为 我 再 一 次 提供 了 写作 机 会 , 让 这 样 一 本 对 大 众 市 场 来 说 未 必 有 太 大 吸引 力 的 书 
问世 ， 而 且 还 能 卖 得 不 钳 。 谢 谢 出 版 团队 的 全 体 成 员 。Jackie Carter， 你 的 友善 帮助 与 指导 是 本 
书 不 可 或 缺 的 ,我 非常 理 受 我 们 之 间 的 每 次 交谈 , 但 愿 你 也 有 同样 感受 。 感 谢 那 些 在 名 后 默默 工 
作 的 人 们 , 你 们 让 这 本 书 做 到 了 最 棒 。 具 体 说 来 , 我 要 感谢 文字 编辑 Kim Wimpsett、 宗 引 编辑 Seth 
Maislin、 排 版 编辑 Steve Peter、 印 刷 编 辑 Janet Furlow， 是 你 们 的 辛勤 工作 让 这 本 书 如 此 优秀 。 没 
有 你 们 ， 这 本 书 决 不 会 像 现在 这 样 出 色 。 

当然 ， 全 部 错误 都 由 我 负责 ， 与 这 个 优秀 的 出 版 团队 无 天。 如 采 有 什么 遗漏 之 处 ， 我 愿 致 以 
最 囊 心 的 茹 童 。 任 何 玖 忽 都 不 是 有 心 之 过 。 

最 后 ,谢谢 我 所 有 的 旋 者 。 因 为 有 你 们 旋 我 的 书 ,， 我 才 党 得 这 些 印 刷 出 来 的 一 页 页 书 不 是 一 
堆 废 纸 ， 我 的 写作 热情 也 才 会 不 可 抑制 地 顺 溥 而 出 。 












































Bruce A. Tate 
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人 们 出 于 各 种 目的 学 习 上 月 然 语言 。 学 母语 是 为 了 生存 ,为 了 日 前 生活 中 与 人 正 并 交往 。 学 外 
语 的 目的 可 就 五 花 八 门 了 。 有 时 候 , 为 了 未 来 的 职业 发 展 或 为 了 适应 日 益 变 化 的 生活 环境 ， 你 不 
得 不 学 习 外 语 ; 但 有 时 候 ， 你 决心 征服 一 门 外 语 ,不 是 因为 不 得 不 这 么 做 ， 而 是 因为 发 目 内 心地 
想 学 。 外 语 能 市 你 领略 一 片 未 曾 见 过 的 风景 。 你 甚至 可 能 领情 一 个 息 理 : 每 学 一 门 新 的 语言 ， 思 
维 方式 都会 发 生 改 变 。 

编程 语言 亦 是 如 此 。 在 这 本 书 中 ,我 将 为 你 介绍 七 门 各 不 相同 的 语言 。 不 过 ,我 不 会 像 你 的 
妈妈 那样 将 吃 的 直接 曝 到 你 嘴 边 。 我 更 愿意 做 你 的 导游 ， 珊 你 体验 一 次 启迪 心智 之 旅 , 并 由 此 改 
变 你 看 待 编程 的 视角 。 与 这 书 的 目的 不 是 让 你 成 为 专家 ， 而 是 教 会 你 比 “Hello，World” 更 实用 
的 知识 。 


1.1 不 走 寻 常 路 


假如 我 想 新 学 一 门 编程 语言 或 一 种 编程 框架 , 一般 会 找 一 篇 速成 互动 教程 看 看 。 因 为 这 类 教 
程 中 ， 先 做 什么 、 后 做 什么 都 已 精心 设计 好 。 通 过 它们 ， 我 们 可 以 更 容易 体会 语言 的 妙 处 所 在 。 
当然 , 扔 抒 教 程 , 直接 动手 实践 也 未 尝 不 可 , 但 说 白 了 , 我 就 是 想 尽 快 发 现 语言 的 动人 心弦 之 处 ， 
尽快 对 它 的 语法 糖 " 和 核心 概念 有 个 大 体 印 象 。 

然而 多 数 情 况 下 ， 我 找 不 到 称心 如 意 的 教程 。 受 到 篇 幅 限 制 ,那些 教程 往往 只 介绍 各 门 语言 
间 相 去 无 几 的 皮毛 。 而 这 些 皮毛 , 我 义 早已 熟知 。 车 想 领会 一 门 语言 的 精髓 , 它 可 就 无 能 为 力 了 。 
我 想 要 的 是 那 种 痛快 淋 注 、 深 入 探索 语言 本 质 的 感觉 。 

本 书 将 会 给 你 这 种 感 党 。 不 是 一 次 ， 而 是 七 次 。 你 将 从 书 中 找到 以 下 问题 的 答案 。 

口 语言 的 类 型 模型 是 什么 ? 强 类 型 (Java ) 或 能 类 型 ( C 语 言 )， 静 态 类 型 〈Java ) 或 动态 类 

型 (Ruby )。 本 书 侧重 于 介绍 强 类 型 语言 , 但 各 种 静态 类 型 和 动态 类 型 语言 也 都 有 所 涉及 。 
你 将 看 到 ,语言 在 类 型 模型 间 的 权衡 会 对 开发 者 产生 何 种 影响 。 语 言 的 类 型 模型 会 改变 
你 对 问题 的 处 理 方式 ， 还 会 控制 语言 的 运行 方式 。 就 类 型 模型 而 言 ， 书 中 的 每 门 语言 都 













































































GD 术语 “语法 糖 ” 是 由 英国 计算 机 科学 家 Peter Landin 首 次 提出 的 。 该 术语 指 的 是 为 编程 语言 添加 某 种 语法 ， 这 种 语 
法 虽 对 语言 本 身 功 能 并 无 实质 影响 ， 但 为 程序 员 编 程 提 供 了 便利 ， 比 如 C 语 言 用 a[ 订 表示 *(a+i) 、 用 for 表 示 循 
环 等 语法 。 语 法 糖 是 本 书 重点 关注 的 主题 之 一 。 
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第 1 齐 简介 


堪 称 独树一帜。 

口 语言 的 编程 范 型 是 什么 ? 是 面向 对 象 ( object-oriented，OO )、 函 数 式 、 过 程式 ， 还 是 它 
们 的 综合 体 ? 本 书 介绍 的 语言 涵盖 了 4 种 编程 范 型 ， 有 些 语言 还 由 几 种 范 型 组 合 而 成 。 你 
将 看 到 一 门 基于 逻辑 的 编程 语言 (Prolog )、 两 门 完全 文 持 面 癌 对 象 思想 的 语言 (Ruby 和 
Scala )、 四 门 达 有 所 数 式 特性 的 语言 ( Scala、Erlang、Clojure 和 Haskell ) 及 一 门 原型 语言 
(Io )。 这 里 有 Scala 这 样 的 多 范 型 〈multiparadigm ) 语言 ， 也 有 Clojure 这 种 多 方法 
( multimethod ) 语言 ， 后 者 甚至 允许 你 实现 目 定 义 范 型 。 本 书 最 重要 的 任务 之 一 ， 就 是 学 
习 新 的 编程 范 型 。 

口 怎样 和 语言 交互 ? 语言 可 编译 也 可 解释 ， 可 以 有 虚拟 机 也 可 以 没有 。 在 本 书 中 ， 如 采 某 
门 语 言 带 交互 命令 行 ， 将 先 通 过 交互 命令 行 探 索 这 门 霹 言 ， 当 我 们 处 理 规模 较 大 的 项 目 
时 ， 还 会 转 而 采用 文件 编程 。 我 们 接触 的 项 目 不 会 特别 大 ， 因 此 无 需 次 入 研究 打包 
(packaging ) 模型 。 

口 语言 的 判断 结构 (decision construct ) 和 核心 数据 结构 是 什么 ? 或 许 你 会 惊讶 ， 在 作 判 断 
时 ， 居 然 如 此 多 的 语言 都 用 到 了 与 if 和 whi1e 的 各 种 变型 都 不 相同 的 结构 。 你 会 见识 到 
Erlang 的 模式 匹配 ， 还 有 Prolog 的 合 一 (unification ) "。 至 于 数据 结构 ,集合 (collection ) 
在 任何 语言 中 都 扮演 着 至 关 重 要 的 角色 。 对 Smalltalk 和 Lisp 这 类 语言 ,集合 刻画 了 语言 特 
征 ， 而 在 C++ 和 Java 等 语言 中 , 集合 更 可 谓 无 所 不 在 , 它们 决定 着 用 户 体 验 , 知 没 了 它们 ， 
语言 势必 成 为 一 盘 散 沙 。 因 此 ， 无 论 用 哪 一 类 语言 ， 都 必须 人 全面、 透彻 地 理解 集合 。 

口 哪些 核心 特性 让 这 门 语言 与 众 不 同 ” 有 些 语言 支持 并 发 编程 的 高 级 特性 ， 有 些 语 言 提供 
独一无二 的 高 级 结构 , 比如 Clojure 的 安 (marco ) 和 Io 的 消息 解释 ( message interpretation ); 
有 些 语言 包含 性 能 强劲 的 虚拟 机 ， 如 Erlang 的 BEAM， 它 能 让 Erlang 构 建 的 容错 分 布 式 系 
统 远 远 快 于 其 他 语言 有 些 语言 提供 专门 针对 特定 问题 的 编程 模型 ， 比 如 利用 逻辑 规则 
解决 约束 问题 。 

就 算 这 些 问题 全 被 你 弄 个 一 清二 楚 ， 你 仍然 成 不 了 语言 专家 ,哪怕 只 是 其 中 一 门 语言 。 但 你 




































































会 明日 ， 这 几 门 语言 各 日 拥有 哪些 独门 绝技 。 下 面 ， 我们 先 看 看 本 书 介 绍 了 哪儿 门 语言 。 


“五 二 
有 提 已 


从 众多 语言 中 ， 挑 出 本 书包 含 的 几 门 语言 ， 这 一 过 程 也 许 不 像 你 想 得 那 么 复 森 。 我 们 只 不 过 


发 了 些 调 查 问卷 ， 癌 本 书 的 潜在 读者 请 教 了 一 番 。 调 查 数据 汇总 上 来 时 ， 有 八 门 语言 入选 希望 最 
大 。 不 过 ， 我 完 把 JavaScript“ 跑 ”了 出 去 ， 因 为 它 实 在 是 过 于 热门 站， 取而代之 的 是 原型 语言 

热门 程度 仅 次 于 JavaScript 的 Ig。 随 后 ， 我 又 把 Python“ 踢 ”了 出 去 ， 因 为 我 只 想 给 面向 对 象 语言 
一 个 名 额 ， 而 Ruby 的 票数 多 于 Python。 同 时 ， 这 也 给 一 个 出 人 意料 的 候选 者 让 出 了 位 置 一 一 名 单 





中 合 一 是 数理 逻辑 中 的 概念 ， 指 的 是 找到 某 个 置换 ， 使 得 两 个 项 ( term ) 完全 一 致 。 它 也 是 Prolog 的 核心 思想 之 一 。 
Prolog 中 的 合 一 包括 原子 和 原子 的 合 一 ， 原 子 、 项 或 另 一 未 实例 化 变量 和 未 实例 化 变量 的 合 一 ， 项 和 项 的 合 一 等 
三 种 情况 ， 本 书 4.2 节 、4.3 节 对 此 有 详细 说 明 。 
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上 位 列 前 十 的 Prolog。 下 面 ， 我 给 出 成 功 入 围 本 书 的 最 终 名 单 以 及 挑选 它们 的 理由 ”。 

口 Ruby。 这 门面 癌 对 象 语言 高 票 当 选 ， 因 为 它 不 仅 好 用 ， 而 且 好 谈 。 我 曾经 考虑 过 不 介绍 
任何 一 门面 加 对象 语言 ， 但 我 又 想 在 其 他 编程 范 型 与 面 加 对象 编程 之 间作 一 些 比较 ， 
此 ， 至 少 介绍 一 门面 癌 对 象 语 言 还 是 有 必要 的 。 相 比 于 大 多 数 程序 员 的 日 弟 有 用法， 我 想 
把 它 挖掘 得 更 深入 一 些 ， 以 揭示 设计 者 的 民 否 用 心 。 我 最 终 决 定 重 点 介绍 Ruby 元 编程 
( metaprogramming )， 因 为 它 可 以 用 来 扩展 Ruby 的 语法 。 对 于 Ruby 榜 上 有 名 的 结果 ,我 还 
是 相当 认可 的 。 

口 lo。 和 了 Prolog 一 样 ，Io 也 是 本 书 颇 具 争 议 的 语言 。 它 虽 与 商业 成 功 无 绿 ， 但 其 兼 具 简单 性 
和 语法 一 致 性 的 并 发 结构 ， 却 是 十 分 重要 的 思想 。 它 的 最 简 语 法 (minimal syntax ) 功能 
强大 ， 与 Lisp 的 相似 性 也 颇 能 给 人 留 下 几 分 印象 。Io 不 仅 和 JavaScript 一 样 同 为 原型 语言 ， 
还 有 痢 独 一 无 二 、 韵 味 无 穷 的 消息 分 发 机 制 ， 因 此 在 众多 编程 语言 之 中 ， 它 也 占有 小 小 
的 一 席 之 地 。 

口 Prolog。 没 错 ，Prolog 年 事 已 高 ， 但 它 仍然 威力 无 穷 。 它 能 轻松 解 出 数 独 问题 ， 这 看 实 让 
我 大 开眼 界 。 用 Java 或 C 语 言 时 ， 有 些 难 题 我 辜 精 竭 虑 方 能 解决 ， 用 Prolog 却 能 干 滔 利 落 
地 搞定 。 承 蒙 Erlang 发 明 者 Joe Armstrong 出 手相 助 ， 我 得 以 深刻 体会 到 Prolog 之 妙 ， 而 且 
也 正 是 深 受 Prolog 影 响 ，Erlang 才 得 以 问世 。 如 果 你 此 前 从 未 用 过 Prolog， 我 保证 ， 它 是 
会 市 给 你 惊喜 。 

口 Scala。 作 为 运行 于 Java 虚 拟 机 上 的 新 一 代 语 言 ，Scala 为 Java 系 统 引 入 了 强大 的 函数 式 思 
想 ， 同 时 也 并 未 丢弃 面向 对 象 编程 。 回 顾 历史 ， 我 发 现 C++ 和 Scalas 有 着 怀 人 的 相似 之 处 ， 
因为 从 过 程式 编程 过 渡 到 面 加 对象 编 程 期 间 ，C++ 同 样 起 到 了 举足轻重 的 作用 。 当 你 真正 
融入 Scala 社 区 之 后 , 你 就 会 明白 ,为 什么 对 于 函数 式 语 言 程序 员 来 说 ，Scala 是 异 闹 狮 说 ， 
而 对 于 Java 开 发 者 来 说 ，Scala 是 天 降 福 首 。 

口 Erlang。 作为 名 单 上 历史 最 悠久 的 语言 之 一 ,Erlang 不 仅 是 一 门 郴 数 式 语言 ,而 且 在 并 发 、 
分 布 式 编程 、 容 错 等 诸多 方面 都 有 优异 表现 ， 真 是 想 不 火 都 难 。CouchDB ( 新 兴 的 基于 
云 的 数据 库 ) 的 创始 人 就 选择 了 Erlang， 并 且 义 无 反 顾 地 一 直 用 它 ， 只 要 花 上 点 时 间 了 解 
这 门 分 布 式 语 言 ， 你 就 会 明白 原因 所 在 。 在 Erlang 帮 助 下 ， 设 计 带 有 并 发 、 分 布 式 、 容 错 
等 特征 的 应 用 程序 将 变 得 无 比 简单 。 

口 Clojure。 这 叉 是 一 门 Java 虚 拟 机 语言 ， 但 正 是 这 | 门 Lisp 方 言 ， 彻 底 丰 履 了 我 们 在 Java 虚 拟 
机 上 并 发 编程 的 思考 方式 。 它 是 本 书 唯一 在 版 本 数据 库 中 使 用 同一 种 策略 管理 并 发 的 语 
言 。 作 为 Lisp 方 言 ，Clojure 或 许 拥 有 本 书 所 有 语言 中 最 灵活 的 编程 模型 ， 因 此 绝 不 缺乏 号 
召 力 。 与 其 他 Lisp 方 言 不 同 的 是 ， 它 不 会 带 那 么 多 括号 ?>， 还 有 众多 Java 库 和 在 各 平台 上 
的 广泛 部 署 作为 坚强 后 慎 。 













































































GD 票数 最 高 的 八 门 候选 语言 是 : Ruby、Python 、JavaScript、Haskell 、Scala、Erlang、Clojure 、Prolog。 由 于 正文 所 
述 的 理由 ， 作 者 最 终 挑 选 了 本 书包 含 的 这 七 门 语言 。 至 于 为 什么 是 七 门 语言 ， 而 不 是 六 门 或 八 门 ， 据 作者 解释 ， 
首先 ， 主 要 考虑 哪些 语言 最 适合 读者 ， 持 酌 之 后 ， 确 定 下 来 的 语言 恰好 就 是 这 七 门 ; 另外 ， 西 方 文 化 视 “7” 为 
幸运 数字 ， 选 择 七 门 语 言 与 此 也 有 一 定 关 系 ， 当 然 ， 这 绝 非 主 要 因素 。 

@) 关于 Lisp 语 言 的 括号 ， 有 一 个 广 为 流 传 的 笑话 : 据说 ， 一 个 黑客 冒 死 偷 到 了 美国 用 于 导弹 控制 的 Lisp 代 码 的 最 后 
一 页 ， 却 发 现 那 一 页 上 全 是 右 插 号 “)”。 
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4 第 1 章 简介 





口 Haskell。 它 是 本 书 唯一 的 纯 画 数 式 语言 ， 这 也 意味 着 ， 它 根本 不 存在 可 变 状态 : 只 要 使 
用 相同 的 输入 参数 ， 去 调用 相同 的 函数 ， 就 会 返回 相同 的 输出 。 在 所 有 强 类 型 语言 中 ， 
Haskell 拥 有 最 令 人 称 姜 的 类 型 模型 。 和 Prolog 一 样 ， 它 也 需要 你 花 一 些 时 间 理 解 ,但 你 得 
到 的 回报 绝对 物 超 所 值 。 
如 果 名 单 上 没有 你 钟爱 的 语言 ， 我 深 感 抱歉。 老实 说 ,还 真有 语言 狂热 分 子 给 我 发 过 好 几 封 
恐吓 信 。 在 本 节 开 始 提 到 的 民意 调查 中 , 我 们 总 共 列 出 了 几 十 门 语言 。 我 挑 的 这 几 门 语言 未 必 是 
其 中 最 出 色 的 ， 但 它们 特点 突出 、 个 性 鲜明 ， 都 具有 重要 的 学 习 价 值 。 


1.3 ” 谁 应 该 买 这 本 书 


如 有 果 你 是 一 名 称职 的 程序 员 , 想 提 高 日 己 的 编程 水 平 , 那 你 应 该 灭 这 本 书 。 这 话说 来 有 几 分 
含糊 ， 请 容 我 解释 一 二 。 






































1.3.1 学 会 如 何 学 习 


Dave Thomas 是 Pragmatic Bookshelf 出 版 社 的 创始 人 之 一 , 我 这 本 书 就 是 他 们 出 版 的 。 他 每 年 
都 救 励 数 以 千 计 的 学 生 去 学 一 门 新 语言 。 学 过 各 式 各 样 的 语言 后 ,你 最 少 也 能 挑 出 一 门 得 心 应 手 
的 语言 用 用 ， 并 把 其 他 语言 的 精华 思想 融入 到 这 门 语言 的 代码 中 去 。 

这 本 书 的 写作 过 程 已 经 深刻 影响 了 我 所 编写 的 Ruby 代 码 。 相 比 于 过 去 ， 我 编写 的 Ruby 代 码 
中 ， 术 数 式 味道 更 加 浓郁 ， 且 因 重 复 部 分 变 少 而 增加 了 可 读 性 。 我 在 代码 中 尽量 缩减 了 可 变 变量 
的 数量 , 还 利用 代码 块 和 高 阶 函 数 写 出 了 更 有 效 的 代码 。 此外, 我 也 用 到 一 些 不 大 符合 Ruby 惯 例 ， 
但 会 让 代码 更 简明 的 技巧 。 

学 语言 最 理想 的 情况 ,是 由 它 引 领 你 路 上 一 条 加 新 的 职业 道路 。 每 十 年 左右 ,编程 范 型 都 会 
发 生 一 次 变革 。 几 年 前 ， 我 感觉 Java 越 来 越 别 扭 ， 于 是 就 去 体验 了 一 把 Ruby， 看 看 怎么 用 它 进 行 
Web 开 发 。 经 过 几 个 过 渡 项 目的 磨合 ， 我 开始 重点 发 展 Rupy 方 向 上 的 业务 ， 从 此 彻底 告别 Java。 
我 的 Ruby 和 后 涯 始 于 玩 票 ， 但 随 之 而 来 的 ， 却 是 事业 的 不 断 发 展 壮大 。 


1.3.2 ”乱世 英雄 


说 到 本 书 该 者， 他 们 大 概 还 没 那么 老 , 不 至 于 经 历 过 上 一 次 编程 范 型 的 更 新 换代 。 回 想 刚 换 
到 面 回 对 象 编程 那 会 儿 , 我 们 遇 到 过 好 几 次 挫折 , 不 过 话说 回来 ， 当 时 的 结构 化 编程 范 型 已 完全 
无 法 应 付 现代 Web 应 用 的 复杂 性 。Java 编 程 语 言 的 成 功 为 Web 应 用 开发 打 了 一 针 强 心 剂 ， 也 因此 
葛 定 了 面 癌 对 象 编程 这 种 新 编程 泡 型 的 地 位 。 不 过 ， 当 时 很 多 开发 者 已 深 深 陷 和 人 了 过 时 技术 的 榨 
梅 中 。 他 们 知 想 顺利 过 渡 到 新 编程 范 型 ， 必 须 由 内 到 外 重新 打造 思考 编程 的 方式 、 手 头 用 于 开发 
的 工具 、 设 计 应 用 程序 的 方法 等 才 行 。 

现在 , 我 们 可 能 正 对 处 义 一 次 变 章 的 进程 当中 。 这 一 次 变革， 新 的 计算 机 设计 架构 将 成 为 主 
要 推动 力 。 在 本 书 的 七 门 语言 中 ， 五 门 都 拥有 强大 的 并 发 模型 ( Ruby 和 Prolog 不 在 其 列 )。 无 论 
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1.4 谁 不 应 该 买 这 本 书 5 











你 用 的 编程 语言 会 不 会 一 夜 之 间 物 是 人 非 , 我 敢 回 你 保证 , 在 应 对 这 场 变 音 之 时 ,， 本 书 介绍 的 所 
有 语言 都 能 拿 出 令 人 信服 的 策略 。 看 看 I0 对 future 的 实现 、Scala 的 actor、Erlang 的 “ 任 其 月 演 ”( let 
it crash ) 哲学 ,再 看 看 Haskell 如 何 把 可 变 状态 抛 到 九 震 云 外 、Clojure 如 何 利 用 版 本 控制 解决 最 为 
环 手 的 并 发 问题 ， 你 就 会 相信 这 一 点 。 

当然 ， 那 些 看 似 平 凡 的 语言 也 不 可 小 裔 ， 它 们 市 来 的 局 示 同 样 让 人 喷 喷 称奇 。Erlang 这 门 用 
于 多 个 云 数据 库 后 台 的 语言 就 是 个 极 佳 的 例子 。 正 是 以 Prolog 为 基础 ，Joe Armstrong 博 十 创立 了 
Di 


1.4 ” 谁 不 应 该 买 这 本 书 


如 果 你 没有 该 过 本 节 ， 或 谈 过 但 不 认同 其 中 观点 ， 那 你 不 应 该 严 这 本 书 。 严 这 本 书 等 于 跟 我 
做 了 笔 灭 卖 : 你 认可 我 把 重点 放 在 编程 语言 本 里 而 非 详 尽 的 安 疙 过 程 上 , 我 承 话 在 有 限时 间 内 尺 
可 能 多 地 授 业 解 了 恶 。 你 要 等 会 利用 Google 搜 索 那 些 细 校 林 方 ， 可 别 指望 我 会 带 你 解决 各 种 安 浴 问 
题 。 如 此 一 来 ,我 才 有 空间 座 人 挖掘 才 言 本 号 ， 而 你 在 读 过 本 书后 ,也 才能 了 解 更 多 博 言 方面 的 
细 广 。 

请 务必 明白 ,这 七 门 语 言 ,无 论 教 还 是 学 ， 对 我 们 而 言 部 是 一 个 宏伟 日 标 。 作 为 读者 ,你 的 
脑袋 必须 多 腾 出 点 地 方 ， 以 容纳 七 种 不 同 的 语法 风格 、 四 种 编程 范 型 、 四 十 年 语言 开发 的 宝 吐 经 
验 ; 作为 作者 ,我 必须 尽量 全 面 地 涵盖 各 个 主题 ， 以 便 让 你 更 好 地 理解 语言 。 为 了 号 好 这 本 书 ， 
我 老 早 就 学 过 了 这 七 门 语言 中 的 几 门 , 但 大 想 完美 地 兼顾 每 门 语言 所 有 最 重要 的 细 记 ,还 需要 一 
些 化 双 为 简 的 本 事 才 行 。 












































1.4.1 超越 语法 


想 真正 理解 语言 设计 者 的 思路 ， 就 必须 有 超越 基本 请 法 的 觉悟。 这 意味 着 ， 你 不 能 仅仅 俘 留 
在 编 与 “Hello，World” 这 种 普通 代码 ， 甚 至 裴 波 那 旭 数 列 代 码 的 水 平 。 如 果 是 Ruby， 你 得 会 写 
一 些 元 编程 代码 ; 如 末 是 Prolog， 你 必须 会 解决 完整 的 数 独 问 题 ， 如 采 是 Erlang， 你 要 懂得 如 何 
写 一 个 监控 程序 ， 这 程序 不 仅 能 检测 前 省 进 程 ， 还 能 局 动 另 一 进程 以 接替 毅 省 进程 的 工作 ， 或 将 
有 衣 演 进程 的 相关 信息 告知 用 户 。 

在 地 囊 你 超越 语法 之 前 , 我 要 先 疝 你 作 个 承诺 ， 同 时 也 不 得 不 作 个 让 步 。 承 诡 是 : 决 不 会 浅 
答 辑 止 、 数 衍 了 事 ; 让 步 是 : 无 法 像 专业 语言 书籍 那样 涵盖 所 有 基础 知识 。 我 几乎 没有 涉及 寞 第 
处 理 ， 除 非 它 是 哪 一 门 语言 的 基本 特性 ; 我 也 没有 详细 介绍 包 模 型 ， 因 为 我 们 做 的 都 是 小 项 目 ， 
没有 必要 用 到 打包 模型 ; 还 有 ， 不 少 原始 类 型 《primitive ) 我 也 只 字 未 提 ， 因 为 解决 本 书 提 出 的 
基本 问题 时 ， 用 不 到 的 原始 类 型 日 然 不 必 提 到 。 

















(这 里 的 潜台词 是 : Prolog 根 本 不 支持 任何 并 发 特性 , 但 以 它 为 基础 的 Erlang, 却 是 一 门将 并 发 作为 招牌 特性 的 语言 。 
这 足以 说 明 语 言 的 本 质 是 什么 ， 更 提醒 我 们 千 万 不 要 忽视 任何 一 门 语言 。 
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6 第 1 章 简介 


1.4.2 ”不 是 安装 指南 


与 这 书 最 大 的 挑战 来 日 于 平台 。 我 与 各 种 书 的 不 少 读者 都 有 过 和 下 接 接 触 , 他 们 所 用 的 平台 包 
括 三 种 Windows 平 台 、OS X 以 及 至 少 五 种 Unix 系 统 。 我 也 在 各 大 留言 板 上 看 过 数不胜数 的 平台 之 
争 。 把 七 门 语 言 安 装 到 七 种 平台 上 ， 这 别 说 一 位 作者 ， 就 算 多 位 作者 合 铸 ,估计 也 是 无 解难 题 。 
我 无 意 解 决 七 门 语言 的 安 半 问 题 ， 所 以 就 不 费 那 精力 去 琢 麻 多 平台 了 。 

我 猜 你 不 会 有 兴趣 旋 一 份 老 挥 牙 的 安 猴 指南 。 语 言 和 平台 都 在 不 断 发 生变 化 。 我 只 要 告诉 你 
去 哪里 安 攻 语 言 、 我 用 的 是 什么 版 本 就 够 了 了 。 这样 你 就 可 以 和 大 家 一 样 ， 照 痢 最 新 的 安 逆 指南 去 
做 。 一 步 步 地 教 你 安装 语言 真 没什么 必要 。 






































1.4.3 不 是 编程 参考 


为 保证 本 书 质量 , 我 们 尽 最 大 努力 对 书 中 代码 进行 了 审阅 ,其 中 一 部 分 还 有 竺 请 到 了 语言 设 
计 者 亲自 审阅 。 在 经 历 出 版 前 的 层 层 严格 审阅 之 后 , 我 确信 ， 这 些 代码 足以 深刻 曾 释 每 一 门 语言 
的 精髓 。 不 过 ， 当 你 自己 试 厦 上 手 用 这 七 门 语言 编程 时 ,我 再 怎么 玩命 ， 也 不 可 能 把 一 份 全 面 的 
语言 参考 摆 在 你 面前 。 请 你 多 多 谅解 。 关 于 这 点 ， 我 想 拿 平 时 会 话 所 用 的 语言 打 个 比方 。 

观光 旅游 时 学 到 的 语言 ， 和 作为 母语 而 熟知 的 语言 相去 其 远 。 我 英语 说 得 流畅 自然 ,西班牙 
语 却 兢 兢 绊 绊 。 还 有 三 门 语言 ,我 也 会 说 若干 短语 。 我 能 在 日 本 吃饭 时 点 鱼 ， 也 能 在 意大利 问 人 
找 洗手 间 。 但 我 心 知 肚 明 的 是 ， 上 自己 非 母 语 的 表达 能 力 实 在 有 限 。 说 到 编程 ， 我 的 BASIC、C、 
C++、Java、C# 、JavaScript、Ruby 等 儿 门 语言 都 十 分 玖 练 。 不 甚 熟 练 的 声言 也 不 少 ， 其 中 还 包括 
本 书 介绍 的 几 门 语言 。 说 老实 话 ， 以 我 现在 的 水 平 , 七 门 语言 中 有 六 门 都 不 是 非常 得 心 应 手 。 近 
五 年 当中 , 我 一 直 全 职 编写 Ruby 代 但 , 但 说 到 其 他 语言 , 我 是 既 说 不 出 怎么 用 Io 编 个 Web 服 务 融 ， 
也 说 不 出 如 何 用 Erlang 编 个 数据 库 。 

如 果真 去 写 一 本 这 七 门 语言 的 参考 大 全 , 那 我 一 定 死 得 很 惨 。 就 算 从 中 随便 挑 一 门 语 言 写 编 
程 指南 ， 也 至 少 会 有 咱们 这 本 书 差不多 厚 。 我 能 提供 各 种 材料 ， 帮 你 轻松 入 门 ; 也 能 带 你 体验 每 
门 语言 的 真实 范例 , 让 你 亲眼 见识 它们 的 程序 代码 ; 还 能 尽量 编译 所 有 代码 , 确保 它们 正常 运行 。 
但 如 有 果 你 在 试验 这 些 语言 时 ， 也 希望 我 能 提供 指导 ， 那 我 真是 心 有 余 而 力 不 足 。 

这 七 门 语言 都 有 非常 优秀 的 文 持 社 区 , 这 也 是 我 选择 它们 的 原因 之 一 。 而且 在 每 个 习题 环节 ， 
我 还 尽量 保留 了 一 个 搜索 语言 相关 资源 的 问题 。 用 意 很 明显 一 一 让 你 学 会 自力 更 生 。 


1.4.4 严格 丢 促 


本 书 为 你 铺 就 的 学 习 途 径 , 较 之 网 上 那些 20 分 钟 教程 可 请 略 胜 一 宕 。 我 知道 ,你 我 同 为 善 用 
Google 之 人 ， 随 便 搜索 书 中 茶 门 说 言 的 简明 教程 目 是 不 在 话 下 。 不 过 本 书 的 蜗 明 之 处 在 于 ， 它 会 
市 你 蹄 上 快速 成 长 的 互动 之 旅 。 你 每 周 都 会 过 到 一 些小 型 的 编程 挑战 和 一 个 实战 项 目 。 解决 它们 
虽 非 易 事 ， 但 这 既 能 增长 你 的 见识 ， 还 可 让 你 体验 编程 之 乐 。 

如 果 你 阅读 本 书 时 不 做 任何 习题 , 那 不 过 是 对 语法 有 了 个 粗浅 认识 。 如 有 果 你 在 尝试 独立 解答 
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LS 取 太 一 让 4 


习题 之 前 ， 允 去 网 上 搜索 答案 ， 那 也 一 样 意味 春 不 及 格 。 你 首 匈 要 有 试 春 解答 习题 的 主观 愿望 ， 
同时 也 要 充分 认识 到 ， 有 一 小 部 分 习题 可 能 超出 了 你 的 能 力 范 围 。 要 知 直 ,学 会 请 法 永远 比 学 思 
考 简单 。 

如 果 以 上 摘 述 让 你 心 惊 胆 战 , 我 建议 你 放下 这 本 书 , 换 本 别 的 书 看 看 。 对 你 来 说 ,也 许 看 七 
本 不 同 的 编程 语言 书 会 更 轻松 民 意 。 但 是 , 如 果 你 马上 想到 的 是 看 这 本 书 所 能 市 来 的 回报 一 一 写 
出 一 手 更 漂亮 的 代码 一 一 并 为 此 激动 不 已 ， 那 就 别 犹 丈 了 ， 赶 又 入 下 看 吧 。 


1.5 ”最 后 一 击 
此 时 此 刻 , 我 真 想 对 你 说 几 句 意义 深远 又 让 人 热血 沸腾 的 话 , 但 千言 万 语汇 成 四 个 字 一 一 享 


受 编 程 。 
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Ruby 





有 糖 相伴 好 下 药 。 





Mary Popplns 





如 于 你 正信 于 翻阅 此 书 , 那 我 们 大 概 志趣 相投 一 一 乔 喜 欢 学 习 各 种 编程 语言 。 对 我 来 说 学 一 
种 语言 ， 束 如 同 了 解 一 个 人 的 性 格 一 般 。 日 我 进入 编程 行业 以 来 ,用 过 的 语言 已 不 在 少数 ， 诬 知 
语言 如 人 ， 每 种 堪 言 都 有 其 独特 个 性 。Java 像 一 位 地 主 家 的 孩子 ， 小 时 候 天 真 可 爱 ， 但 长 大 后 开 
始 巧 取 蚂 村, 方圆 百 里 之 内 听 不 到 一 丝 欢 声 笑 语 ; Visual Basic 像 一 位 浓妆艳抹 的 美发 师 ， 虽 对 全 
球 变 上 暖 问题 一 无 所 知 ， 理 发 却 是 一 把 好 于 ， 言 谈 风 趣 幽 先 总 能 把 人 去 得 开怀 大 关 。 在 本 书 中 , 我 
将 把 你 学 到 的 每 门 语言 部 比 作 某 个 著名 的 影视 人 物 。 希望 这 样 的 比喻 能 对 你 有 所 局 发 , 让 你 多 少 
明日 各 语言 与 众 不 同 的 性 格 所 在 。 

先 来 认识 一 下 Ruby, 我 的 最 爱 之 一 。 她 偶尔 会 搞怪 ， 却 总 是 很 妩媚 ; 市 有 那么 点 神秘 ,， 却 有 
着 百 分 百 的 魅力 。 还 记得 英国 保姆 Mary Poppins 吗 ? 她 那个 年 代 ， 保 姆 多 半 像 C 语 言 家 族 “ 的 大 
多 数 博 言 那样 ， 做 什么 都 很 利 款 ， 就 是 没什么 人 情 味 儿 ， 而 且 枯燥 死板 、 一 成 不 变 。 其 实 ， 只 要 
一 候 糖 "一切 都 会 不 同 。Mary Poppins 从 家 务 中 寻找 乐趣 ， 以 责任 感 唤起 热情 ,做 起 家 务 来 自然 
事半功倍 。Ruby 所 做 的 也 同样 如 此 ， 但 它 用 的 不 是 食用 糖 ， 而 是 语法 糖 。 作 为 Ruby 的 发 明 者 ， 
Matz 并 不 担心 编程 请 言 的 执行 效率 ， 而 是 把 精力 放 在 了 提高 程序 员 的 编程 效 靳 上 。 


























(QD Mary Poppins , DVD 版 , 导演 : Robert Stevenson ( 1964 年 ), 发 行商 : 加 利 福 尼 亚 州 洛杉矶 市 迪士尼 影视 公司 ( 2004 
年 )。( 译 者 注 : 这 部 电影 中 译名 为 《欢乐 满 人 间 》 是 迪士尼 公司 1964 年 根据 同名 小 说 拍摄 的 音乐 电影 。 片 中 主 
人 公 Mary Poppins 是 一 位 法 力 高 强 的 仙女 保姆 ， 她 来 到 一 户 双亲 工作 忙碌 、 孩 子 生 性 项 皮 的 家 庭 ， 接 替 孩 子 们 气 
走 的 前 任 保姆 的 工作 。 在 她 手中 ,枯燥 的 日 常生 活 变 得 像 魔幻 世界 一 般 精 彩 纷 呈 ， 繁 重 的 家 务 劳 动 也 具有 了 无 穷 
无 尽 的 乐趣 ,孩子 们 更 是 由 此 学 会 了 以 积极 快乐 的 心态 面 对 生 活 。Mary Poppins 的 行为 感染 了 孩子 们 的 父亲 ， 让 
他 明白 除了 工作 、 跟 钱 之 外 ,值得 珍惜 的 事物 还 有 很 多 。 最 后 ， 带 着 欣 慰 的 心情 ， 她 离开 了 这 个 家 庭 。 值 得 一 提 
的 是 ， 饰 演 Mary Poppins 这 一 角色 的 是 著名 英国 影星 Julie Andrews， 这 也 是 她 的 银幕 处 女 作 。 一 年 后 ,她 又 饰演 了 
《音乐 之 声 》 中 的 家 庭 教师 一 一 和 Mary Poppins 可 谓 是 异曲同工 、 相 映 成 趣 。 正 是 凭借 这 两 个 角色 ， 她 获得 了 1964 
年 的 奥斯卡 最 佳 女 演员 奖 以 及 1965 年 的 奥斯卡 最 佳 女 演员 提名 。) 

@) C 语 言 家 族 ， 指 由 C 语 言 派生 的 众多 编程 语言 ， 包 括 C、C++、C# 、jJava、Objective<C、D 、Go 等 语言 。 可 参见 
http://en.wikipedia.org/wiki/Category:C programming language _ family。 

@) 指 的 是 Mary Poppins 在 影片 中 演唱 的 歌曲 《一 勺 糖 》 她 借 此 歌 告 诉 孩 子 们 ， 虽然 工作 犹如 茜 药 一 般 , 但 只 要 发 现 
其 中 乐趣 ， 就 会 像 一 勺 糖 压 下 和 否 药 那 般 甘 之 如 馆 。 
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2.1 Ruby 简 史 


松本 行 礁 ( Yukihiro Matsumoto ) 大 约 在 1993 年 发 明了 Ruby， 大 家 多 称 他 为 Matz。 从 话 言 的 
角度 看 , Ruby 出 吴 于 所 谓 的 脚本 语言 家 族 , 是 一 种 解释 型 、 面 器 对 象 、 动 态 类 型 的 语言 。 解释 型 ， 
意味 着 Ruby 代 人 码 由 解释 妖 而 非 编 译 带 执行 。 动 态 类 型 ,意味 着 类 型 在 运行 时 而 非 编 译 时 绑 定 。 从 
这 两 方面 看 , Ruby 来 取 的 案 略 是 在 灵活 性 和 运行 时 安全 之 间 寻 找平 衡 点 , 我 们 稍 后 还 会 深入 讨论 
这 一 点 。 面 回 对 象 ， 意 味 看 Ruby 文 持 封 疹 〈 把 数据 和 行为 一 起 打包 )、 类 继承 ( 用 一 棵 类 树 来 组 
织 对 象 类 型 )、 多 态 〈 对 象 可 表现 为 多 种 形式 ) 等 特性 。Ruby 多 年 来 一 直 默 默 壶 伏 ， 只 为 等 竺 一 
个 恰当 的 出 现时 机 。 终 于 ， 随 看 Rails 框 粹 括 露 头角 ，Ruby 也 在 2006 年 前 后 一 鸣 怀 人 。 在 企业 开 
发 的 从 林 中 跋涉 了 十 年 之 后 ，Ruby 指 引 人 们 重新 找 回 了 编程 乐趣 。 尺 管 从 执行 速度 上 说 ，Ruby 
谈 不 上 有 多 高 效 ， 但 它 却 能 让 程序 员 的 编程 效率 大 幅 提 高 。 
松本 行 弘 访谈 录 

我 很 高 兴 来 到 松本 先生 的 家 乡 日 本 松江 市 拜会 松本 先生 。 我 们 在 谈话 间 聊 到 一 些 Ruby 
语言 背后 的 设计 思想 ， 松 本 先生 也 解答 了 我 癌 他 提出 的 几 个 问题 。 

Bruce: 你 为 什么 要 开发 Ruby? 

Matz: 我 从 一 开始 摆 再 计算 机 ， 就 对 编程 语言 产生 了 兴趣 。 编 程 语 言 不 仅 是 用 来 编程 的 方 
法 ， 还 是 思维 的 放大 器 ， 可 以 塑造 思考 编程 的 方式 。 所 以 很 长 一 段 时 间 ， 我 都 把 编程 语言 当 作 一 
项 兴趣 爱好 ， 下 了 不 少 功 夫 研 究 。 我 芮 至 实现 了 几 门 玩具 语言 ， 但 都 派 不 上 什么 用 场 。 

1993 年 ， 当 我 看 到 Perl 的 时 候 ， 不 知 怎么 的 ， 这 种 混合 了 Lisp 和 Smalltalk 特 征 的 面向 对 象 语 
言 让 我 的 灵感 一 下 子 进 发 出 来 。 我 意识 到 Perl 将 成 为 一 门 可 提高 我 们 生产 力 的 伟大 语言 。 于 是 ， 
出 于 自 娱 自 乐 的 动机 ,我 着 手 开 发 一 门 与 之 类 似 的 语言 ， 并 将 其 命名 为 Ruby。 刚 开始 的 时 候 ， 开 
发 Ruby 还 纯 属 业余 爱好 ， 处 处 都 能 按 自己 的 口味 设计 。 后 来 ,世界 各 地 的 程序 员 开 始 渐渐 接受 这 
门 语言 及 其 背后 的 设计 原则 。 它 越 来 越 受 人 们 喜爱 ， 这 远 远 超出 了 我 的 预期 。 

Bruce: 你 最 喜欢 它 郧 一 反 呢 ? 

Matz: 我 喜欢 它 转 编程 于 乐 的 方式 。 说 到 某 个 具体 的 技术 点 ,我 最 喜欢 的 是 “代码 块 〈block )。 
代码 块 即 是 一 种 为 于 控制 的 高 阶 函 数 ， 也 为 DSL ( Domain-Specific Language， 领 域 特定 语言 ) 及 
其 他 特性 的 实现 提供 了 极 大 的 灵活 性 。 

Bruce: 如 果 能 让 时 光 人 倒流， 你 想 改变 哪些 特性 ? 

Matz: 我 想 去 掉 线 程 ， 加 入 actor ( 参与 者 ) 或 一 些 更 高 级 的 并 发 特性 。 

无 论 你 是 否 已 对 Ruby 有 所 了 解 ， 都 请 一 边 阅 读本 草 ， 一边 留 意 Matz 为 设计 这 门 语言 所 做 的 
种 种 权衡 。 你 可 以 看 看 他 添加 了 哪些 语法 糖 一 一 那些 打破 了 语言 稼 规 , 不 仅 为 程序 员 提 供 更 加 友 
好 的 体验 ， 而且 让 代码 更 容易 理解 的 小 特性 。 还 可 以 看 看 Matz 在 集合 ( collection ) 等 处 用 到 的 代 
码 块 ， 体 会 一 下 它们 如 何 发 挥 出 梦 约 般 的 效果 。 还 有 ， 尽 可 能 去 理解 他 在 简单 性 和 安全 性 之 间 、 
编码 效率 和 程序 性 能 之 间 所 做 的 哪些 让 步 和 折 中 。 

这 就 开始 吧 。 先 简单 看 看 下 面 这 几 行 Ruby 代 码 ， 找 找 感 党: 
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>> properties = [ opbJect oriented', ' duck typed', 'productive', TUn 
=> ["object oriented”", "duck typed”, "productive”", "fun"] 

>> properties.each {|property| puts "Ruby 1s #{property}."} 

Ruby 1s object oriented. 

Ruby 1s duck typed. 

Ruby 1s productive. 

Ruby is fun. 

=> ["object oriented", "duck typed”", "productive", "fun"] 


有 了 Ruby, 我 们 叉 能 带 着 笑容 编程 了 。 作为 一 门 彻头彻尾 的 动态 语言 , 它 拥有 令 人 惊叹 的 社 
区 支持 。 它 的 各 种 实现 版 本 都 是 开源 的 。 它 的 社区 里 没有 其 他 语言 社区 泛滥 成 灾 的 那 种 华而不实 
的 框架 ,因为 其 商业 支持 大 都 来 自 于 小 公司 。 它 虽 在 企业 应 用 领域 势头 不 显 , 但 凭借 编程 效率 上 
的 优势 ， 在 Web 开 发 等 领域 可 谓 如 雷 贯 耳 。 


且 不 说 Mary Poppins 会 什么 魔法 ， 她 首先 得 是 一 名 优秀 保姆 。 当 你 刚 上 手 学 一 门 语言 时 ， 必 
须 先 了 解 如 何 用 它 去 完成 能 用 其 他 语言 摘 定 的 事 。 下 面 , 我 们 即将 开始 和 Ruby 的 首次 接触 。 你 可 
以 把 这 当 作 一 次 彼此 交流 的 机 会 。 你 们 交流 起 来 是 否 顺畅 ”有 没有 几 分 难以 名 状 的 十 众 ? 它 有 什 
么 样 的 核心 编程 模型 ? 采用 何 种 方法 处 理 类 型 ? 现在 ， 让 我 们 开始 寻找 答案 吧 。 


2.2.1 快速 起 步 


我 承 话 过 ,不 会 种 你 体验 那 种 婆婆 妈妈 又 老 掉 牙 的 安装 过 程 。-Ruby 安 装 起 来 不 过 是 小 末 一 供 。 
你 只 需 移 步 http://www.ruby-lang.org/en/downloads/， 找 到 你 所 用 的 平台 ， 安 装 Ruby 1.8.6 或 更 高 版 
本 即 可 。 我 在 撰写 本 章 时 , 用 的 是 Ruby 1.8.7, 而 1.9 版 可 能 会 有 一 些 细微 差别 。 如 果 你 用 Windows 
平台 , 可 下 载 简便 易 用 的 一 键 安装 包 ; 如 果 你 用 OS XLeopard 或 更 高 版 本 的 苹果 平台 , 可 在 Xcode 
安 准 盘 中 找到 Ruby。 

输入 jirb 可 测试 安装 是 否 成 功 。 如 果 没 提示 任何 错误 ， 你 就 放心 阅读 本 章 的 剩余 部 分 好 了 ; 
如 采 提 示 错 误 , 那 也 没什么 好 怕 的 , 别人 可 能 早 就 遇 到 过 类 似 问 题 。 只 需 把 错误 信息 输入 Google， 
解决 方法 可 能 就 会 在 你 面前 出 现 。 















































2.2.2 ”从 命令 行 执行 Ruby 


如 果 你 尚未 输入 irb， 现 在 马上 输入 。 你 会 看 到 Ruby 的 交互 命令 行 ， 其 中 可 输入 命令 并 获得 
反馈 。 输入 下 列 命令 : 

>> puts “ hello，wor1d- 

hello, world 

=> nil 

>> language = 'Ruby' 

=> "Ruby" 
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>> puts "hello, #{language}” 
hello, Ruby 

=> ni 

>> language = my Ruby- 

=> "my Ruby" 

>> puts "hello, #{language}” 
hello, my Ruby 

=> nil 


如 有 果 你 对 Ruby 一 无 所 知 ， 这 短 短 儿 行 代码 示例 束 暗 藏 了 不 少 线索 。 第 一 ， 它 告诉 你 ，Ruby 
征 解释 执行 的 。 确 切 地 说 ，Ruby 儿 乎 总 是 解释 执行 的 ， 但 也 有 开发 者 正春 于 开发 虚拟 机 ， 想 把 
Ruby 代 码 编译 成 字 节 码 再 执行 ; 第 二 ,我 没 在 代码 里 声明 任何 变量 `"; 第 三 ， 即 使 我 没 让 Ruby 返 
回 任何 值 ， 这 儿 行 代码 也 都 具有 各 自 的 返回 值 "。 实 际 上 ， 每 条 Ruby 代 码 都 会 返回 某 个 值 。 

此 外 , 你 还 至 少 看 见 了 两 种 形式 的 字符 串 。 单 引 写 包含 的 字符 串 表 示 它 将 不 加 改动 地 和 耻 接 解 
释 ， 双 引号 包含 的 字符 驯 则 会 引发 字符 绅 蔡 换 。 字 符 昌 和 蔡 换 是 Ruby 解 释 从 所 做 的 一 种 求 值 。 在 上 
面 的 示例 中 ，Ruby 把 变量 1anguage 的 返回 值 奉 换 进 了 字符 日。 好 ， 继 续 前 进 。 























2.2.3 Ruby 的 编程 模型 


当 你 新 接触 一 门 声言 的 时 候 ,， 有 些 问题 是 需要 首先 去 思考 的 ,“ 这 门 语言 的 编程 模型 是 什么 ” 
正 是 其 中 之 一 。 这 问题 有 时 不 那么 好 回答 。 你 可 能 早 就 接触 过 C、Fortran 、Pascal 这 类 过 程式 语言 。 
现 如 今 ， 大 部 分 人 在 用 面 回 对 象 语 言 ， 不 过 它们 大 都 市 有 过 程式 语言 要 素 ， 比 如 ， 数 字 4 在 Java 
中 就 不 是 对 象 。 你 也许 冲 大 也 数 式 编程 语言 洒 的 这 本 书 。 但 某 些 少数 式 垣 言 ( 如 Scala ) 还 加 入 了 
一 些 面 向 对 象 思想 ， 可 以 说 它们 混合 了 多 种 编程 模型 。 田 外 ， 也 有 很 多 其 他 编程 模型 。 基 于 栈 的 
语言 ( 如 PostSceript 或 Forth )， 使 用 一 个 或 多 个 栈 作 为 该 语言 的 核心 特征 。 基 于 逻辑 的 语言 〈 如 
Prolog )， 是 以 规则 (rule ) 为 中 心 建 立 起 来 的 。 原 型 语言 (如 Io、Lua 和 Self ) 用 对 象 而 不 用 类 来 
作为 定义 对 象 甚至 继承 的 基础 。 

Ruby 是 一 门 纯 面 癌 对 象 语 言 。 在 本 章 中 你 将 看 到 ，Ruby 是 如 何 深 入 挖 据 面 癌 对 象 思想 的 。 
先 来 看 一 些 基本 对 象 : 

>> 4 

=> 4 

>> 4.class 

=> Fixnum 

>> 4+4 

=> 8 

>> 4.methods 


=> [ inspect " ， % ， "<<", "Singleton method added ， "numerator”", ... 
四 “十 ”， De “methods”，  ， 

































































Q 声明 是 指使 用 某 变 量 之 前 先 宣称 该 变量 存在 ， 或 指出 该 变量 的 类 型 。 对 于 Python 、Ruby 这 样 的 语言 来 说 ， 声 明 毫 
无 意义 ， 因 为 变量 无 需 声 明 ， 即 可 直接 初始 化 及 赋值 。 
@) 当然 ，ni1 也 是 值 ， 因 此 它 也 是 返回 值 。 
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虽然 在 代码 最 后 的 列表 中 , 我 省 略 了 一 些 方法 , 但 已 经 充分 说 明了 问题 。 在 Ruby 中 , 一 切 和 经 
为 对 象 , 就 连 每 个 单独 的 数字 "也 不 例外 。 通过 此 例 , 我 们 可 以 看 出 , 数字 是 Fixnum 类 型 的 对 象 ， 
且 调 用 methods 方 法 可 返回 方法 数组 ( Ruby 用 方 括号 表示 数组 )。 实 际 上 ， 我 们 可 以 用 “.” 符 号 
调用 对 象 具 有 的 任意 方法 。 








2.2.4 判断 


程序 编 出 来 是 用 于 判断 决策 的 ， 因此 在 编程 语言 中 , 如何 使 用 判断 也 就 理所当然 成 为 其 核心 
思想 , 它 影响 我 们 用 这 门 语 言 编 码 和 思维 的 方式 。Ruby 的 判断 语句 和 其 他 大 部 分 面 回 对 象 或 过 程 
式 语言 大 同 小 异 。 看 看 下 面 的 表达 式 : 

>> X= 4 

=> 4 

>> X<5 

=> true 

>> X <= 4 

=> true 

>> X > 4 

=> false 

>> false.class 

=> FalseClass 

>> true.class 

=> TrueClass 


也 就 是 说 ,Ruby 中 有 取 值 为 true 或 false 的 表达 式 . 和 其 他 语言 一 样 ,Ruby 中 的 true 和 false 
也 是 一 等 对 象 ( first-class object ) >。 它们 可 用 来 执行 下 列 涉及 条 件 判 断 的 代码 : 
= 4 


>> X = 
=> 4 

>> puts ‘This appears to be false. ”unless x == 
=> nil 

>> puts ‘This appears to be true." if x == 

This appears to be true. 

= Mil 

>> if x == 4 

>> puts ‘This appears to be true.' 

>> end 

This appears to be true. 

=> nNn1il 

>> unless x == 4 

>> puts 'This appears to be false.' 























QD 揣摩 作者 原意 ， 当 指 不 以 集合 形式 (列表 、 元 组 等 ) 出 现 的 数字 。 

@) 即 与 整数 、 浮 点 数 等 基本 类 型 同等 方式 处 理 的 对 象 。 注 意 ， 这 里 说 的 对 象 并 非特 指 面向 对 象 语言 中 的 对 象 ， 而 是 
泛 指 编程 语言 中 的 类 型 。 一 等 对 象 应 具有 以 下 几 项 性 质 : 可 存储 于 变量 或 数据 结构 中 ; 可 作为 参数 传递 给 函数 ; 
可 作为 返回 值 从 函数 返回 ; 可 在 运行 时 创建 。 举 例 来 说 ，C++ 中 的 对 象 就 是 一 等 对 象 ， 但 其 函数 无 法 在 运行 时 创 
建 ， 所 以 不 是 一 等 对 象 ; 与 之 相反 ， 函 数 式 语言 中 的 函数 是 一 等 对 象 ， 因 为 它 既 可 以 传递 和 返回 ， 也 可 以 在 运行 
时 动态 创建 。 
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>> else 

>> puts ‘This appears to be true.' 

>> end 

This appears to be true. 

=> nl | 

>> puts ‘This appears to be true.' if not true 
=> nl | 

>> puts ‘This appears to be true.” if !true 

=> nil 


我 非常 喜欢 Ruby 的 这 种 设计 ， 它 把 条 件 句 变 得 简单 明了 。 当 你 使 用 if 或 unless 时 ， 既 可 选 
用 块 形 式 ( if condition, statements, end ), 也 可 选用 单行 形式 ( statements if condition )。 


也 许 在 茶 些 人 看 来 ， 计 的 单行 形式 令 人 作 哎 ,但 我 部 党 得 , 它 仅 仅 用 了 一 行 代码 ， 丈 清 芍 地 表达 
了 思想 ， 


DA 。 多 








order.calculate tax unless order.nil? 

当然 ,你 也 可 以 用 块 形 式 写 这 行 代码 , 但 这 样 做 会 在 本 应 单纯 、 连 贯 的 思想 中 引入 一 些 不 必 
ne 
帆 为 欣赏 。 你 可 以 用 not 或 ! 表 达 同 样 意图 ,但 用 unless 表 达 要 好 得 多 。 

while 和 unti1 亦 是 如 此 : 


>> X=X+ 1 while x < 10 
=> nil 

>> X 

> 10 

>> X=X- 1 until x == 
=> nil 

>> X 

=> 1 

>> While x < 10 

>> Xx=x+l1 

>> puts x 

> end 











|| 攻 


Vv 


nil 
意 ，= 用 于 赋值 ， 而 == 用 于 判断 是 否 相 等 。 在 Ruby 中 , 每 种 对 象 都 有 自己 特有 的 相等 概念 。 
本 它们 相等 。 

你 也 可 以 用 true 和 false 之 外 的 值 作 为 表达 式 ， 
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>> puts ‘This appears to be true.” 1f 1 


This appears to be true. 
=> nil 


>> puts ‘This appears to be true.'" if ‘random string' 
(Cirb):31: warning: string literal in condition 


This appears to be true. 

=> nil 

>> puts ‘This appears to be 
This appears to be true. 

=> nl11 

>> puts ‘This appears to be 
This appears to be true. 


=> nil 
>> puts ‘This appears to be 
=> nil 
>> puts ‘This appears to be 
=> nil 


true. 


true. 


true. 


true. 


if 0 


1f true 


if false 


if ni 








也 就 是 说 ， 除 了 ni1 和 false 之 外 ， 其 他 值 都 代表 true。C 和 C++ 程序 员 可 得 小 心 了 ，0 也 是 


truel 





Ruby 的 逻辑 运算 符 ， 跟 C、C++、C# 、jJava 差 不 多 ， 但 也 稍 有 不 同 。and (也 可 写 为 && ) 是 
逻辑 与 ，or (也 可 写 为 || ) 是 逻辑 或 。 用 这 两 种 运算 符 验 证 表达 式 时 ， 一 旦 表达 式 的 值 已 能 明 
确 求 出 ， 解 释 器 就 不 再 继续 执行 后 面 的 表达 式 代 码 ”"。 如 果 想 执行 整个 表达 式 的 话 ， 可 以 用 & 或 | 





进行 比较 。 下 面 ， 看 看 它们 是 如 何 运行 的 : 


>> true and false 


=> false 
>> true or false 
=> true 
>> false && false 
=> false 


>> true && this will cause an error 


NameError: undefined local variable or method 'this will cause an error' 


for main:Object 
from (irb):59 


>> false && this will not cause an error 


=> false 
>> true or this will not cause an error 
=> true 
>> true || this will_ not cause an error 
=> true 


>> true | this will cause an error 





Q 即 逻 辑 表 达 式 的 短路 求 值 。 几 乎 所 有 语言 都 有 此 项 特征 。 但 不 同 的 是 ,有 些 语言 还 有 正常 求 值 的 逻辑 运算 符 ， 即 对 
所 有 子 表 达 式 一 一 求 值 。 前 面 提 到 的 4 种 语言 中 ，C 和 C++ 只 有 短路 求 值 ，C# 和 Java 虽 二 者 乡 有 ， 但 没有 and 和 和 or。 
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NameError: undefined local variable or method ‘this will_cause an _ error” 
for main:Object 
from (irb):2 
from :0 
>> true | false 
=> true 


这 段 代码 可 谓 一 目 了 然 ， 不 必 多 加 解释 。 我 们 一 般 会 使 用 逻辑 运算 符 的 短路 版 本 。 














2.2.5” 觅 子 类 型 


接 下 来 ,我 们 学 一 点 有 关 Ruby 类 型 模型 的 内 容 。 首 和 完 ， 你 必须 知道 ， 当 你 错误 使 用 类 型 时 ， 
Ruby 能 在 多 大 程度 上 给 予 保护 。 这 里 说 的 就 是 类 型 安全 ( type safety )。 强 类 型 语言 会 对 某 些 操作 
进行 类 型 检查 ,并 在 其 造成 破坏 前 加 以 阻止 。 当 你 把 代 但 提交 给 解释 硕 或 编译 硕 ， 或 是 执行 代码 
时 ， 就 会 进行 类 型 检查 。 看 看 下 面 的 代码 : 

>> 4+ ‘four' 

TypeError: String can't be coerced into Fixnum 

from Cirb):51:1in “+ 
from (irb):51 














>> 4.class 

=> Fixnum 

>> (4.0) .class 
=> Float 


>> 4+4.0 
=> 8.0 
由 此 可 见 , Ruby 是 强 类 型 语言 ", 这 意味 着 发 生 类 型 冲突 时 ,你 将 得 到 一 个 错误 另外, Ruby 
是 在 运行 时 而 非 编译 时 进行 类 型 检查 的 。 为 了 证 明 这 一 点 , 我 打算 比 原 计 划 提 前 一 些 介绍 定义 也 
数 的 方法 。 关 键 学 def 定义 一 个 函数 ， 但 不 会 执行 它 。 输 入 下 列 代 码 : 
>> def add them up 
>> 4 + 'four’ 
>> end 
=> nN1il 
>> add_ them up 
TypeError: String can't be coerced into Fixnum 
from (Cirb):56:1in +， 
from (irb):56:in add _ them _up' 
from (irb):58 


所 以 说 , 直到 真正 答 试 执行 代码 时 ，Ruby 才 进行 类 型 检查 。 这 一 概念 称 做 动态 类 型 。 在 采用 























由 我 对 你 撒 了 一 点 点 谎 ， 不 过 只 有 一 点 点 。 在 后 面 两 个 例子 中 ， 你 将 看 到 ， 我 在 运行 时 改变 了 当前 的 类 。 从 理论 上 
说 ,用 户 能 把 类 改 得 面目 全 非 ， 并 供 此 战胜 类 型 保护 ， 因 此 从 最 严格 的 角度 来 看 ，Ruby 不 是 强 类 型 语言 。 不 过 一 
般 情 况 下 ，Ruby 在 大 部 分 时 间 里 都 表现 得 像 一 门 强 类 型 语言 。 一 一 原 书 注 
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入 





型 系统 的 情况 下 , 编 内 上 澡 和 工具 能 捕获 更 多 错误 , 因此 Ruby 不 会 像 静 态 类 型 语言 捕获 的 错 
多 。 这 是 它 的 劣 擅 ,但 Ruby 的 类 型 系统 也 有 目 己 的 潜在 优势 ， 即 多 个 类 不 必 继 承 日 相同 父 
相同 方式 使 用 : 


© 


， 驶 能 以 
1 
0 


>> a = ['100', 100.0] 

= UU LUUSUI 

>> While 1 < 2 

>> puts a[L1] .to 1 

>> 1 ET 1 

>> end 

100 

刚才 你 看 到 的 就 是 我 们 实际 应 用 中 篆 见 的 鸭子 类 型 (duck typing )。 这 数组 的 第 一 个 元 素 是 
String， 第 二 个 元 素 是 Float， 而 把 它们 转换 成 整数 的 代码 , 却 都 用 的 是 to ij。 鸭子 类 型 并 不 在 
乎 其 内 在 类 型 可 能 是 什么 。 只 要 它 像 鸭 子 一 样 走 路 ， 像 向 子 一 样 噶 嘎 叫 ， 那 它 台 是 只 鸭子。 在 这 
个 例子 中 ，to_i 就 相当 于 嘎嘎 叫 。 

对 于 面 加 对象 设 计 的 清晰 性 来 说 ,鸭子 类 型 至 关 重 要 。 在 面 回 对 象 设计 思想 中 ,， 有 这 样 一 个 
重要 原则 : 对 接口 编码 ， 不 对 实现 编码 "。 如 果 利 用 鸭子 类 型 ， 实 现 这 一 原则 只 需 极 少 的 额外 工 
作 ， 轻 轻松 松 就 能 完成 。 举 个 例子 ， 对象 若 有 push 和 pop 方 法 , 它 就 能 当 作 栈 来 用 ; 反之 若 没有 ， 
就 不 能 当 作 栈 。 























2.2.6 ”第 一 天 我 们 学 到 了 什么 


学 到 这 里 , 我 们 才 好 不 容易 把 基础 知识 都 过 了 一 遍 。Ruby 是 一 门 解释 型 语言 ,一 切 丝 为 对 象 ， 
且 易 于 获取 对 象 的 任何 信息 ， 如 对 象 的 各 方法 及 所 属 类 。 它 是 鸭子 类 型 的 ， 且 行为 通常 和 强 类 型 
语言 训 无 二 致 ， 尽管 一 些 学 者 会 争论 其 中 差别 。 它 也 是 尝 尚 自由 精神 的 语言 ， 允 许 你 做 几乎 一 切 
事情 ， 包 括 修改 Ni1Class 或 String 这 样 的 核心 类 。 现 在 ， 让 我 们 放松 一 下 ， 做 一 些 目 习 。 














2.2.7 ”第 一 天 目 习 


你 已 经 结束 了 和 Ruby 的 首次 约会 , 接 下 来 该 写 写 代 码 了 。 在 这 一 阶段 ， 你 不 必 写 出 完整 的 程 
序 ， 用 irb 执 行 Ruby 语 句 就 行 。 
找 








口 Ruby API 文 档 。 

口 Programming Ruby : The Praematic Programmer 3 Guide [TFHO8] 的 人 免费 在 线 版 本 。 
口 蔡 换 字符 串 菏 一 部 分 的 方法 。 

口 有 关 Ruby 正 则 表达 式 的 资料 。 


Q 这 是 依赖 反 转 原则 ( Dependency Inversion Principle，DIP ) 的 一 种 实践 应 用 。 
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[ND 
I 
- 滤 
| 


口 有 关 Ruby 区 间 (range ) 的 资料 。 


口 打印 字符 串 "Hel11o，wor1d."。 

口 在 字符 串 "Hel1l1o，Ruby." 中 ， 找 出 "Ruby." 所 在 下 标 。 

口 打印 你 的 名 字 十 过。 

口 打印 字符 串 "This is sentence number 1."， 其 中 的 数字 1 会 一 直 变 化 到 10。 

口 从 文件 运行 Ruby 程 序 。 

口 加 分 题 : 如 采 你 感觉 意犹未尽 ， 还 可 以 写 一 个 选 随机 数 的 程序 。 该 程序 让 玩家 猜 随机 数 

是 多 少 ， 并 告诉 玩家 是 猜 大 了 还 是 猜 小 了 。 

(提示 : rand(10) 可 产生 0 ~ 9 的 随机 数 ，gets 可 读 取 键盘 输入 的 字符 串 ， 你 要 把 输入 字符 串 

转换 成 整数 。) 











想 当 年 ，Mary Poppins 撑 着 企 、 央 然 降 落 于 小 镇 的 登场 方式 ， 绝 对 是 那 部 电影 最 让 人 心 驰 目 
胶 的 一 但 。 要 是 搁 现 在 ,我 的 小 孩 才 不 会 理解 这 样 登场 有 什么 好 大 屋 小 怪 的 。 第 二 天 中 ， 你 会 杀 
母体 验 令 Ruby 大 受 欢 迎 的 小 魔法 。 你 将 学 习 对 象 、 集 合 、 类 等 基本 构建 单元 的 用 法 ,还 将 学 到 代 
码 块 的 基本 要 系 。 做 好 准备 、 睁 大 眼睛 ， 见 识 一 下 这 些小 魔法 吧 。 














2.3.1 定义 函数 
和 Java、C# 不 同 ， 你 不 必 为 了 定义 函数 而 把 整个 类 都 构建 出 来 。 用 命令 行 就 可 以 定义 函数 : 


>> def tell the truth 
>> true 
>> end 


每 个 消 数 部 会 返回 结果 。 如 琳 你 没有 显 式 指定 茶 个 返回 值 ， 函 数 就 将 返回 退出 函数 前 最 后 处 
理 的 表达 式 的 值 。 像 所 有 其 他 事物 一 样 ， 函 数 也 是 个 对 旬 。 
我 们 稍 后 会 讨论 如 何 把 函数 作为 参数 传递 给 其 他 函数 。 





2.3.2 ”数组 


数组 是 Ruby 有 序 集合 中 的 主力 部 队 。 虽 说 Ruby 1.9 新 引入 了 有 序 散 列表 ， 但 总 的 来 看 ， 数 组 
仍 是 Ruby 最 重要 的 有 序 集合 。 看 看 下 面 这 上 段 代码 : 








>> animals = ['lions', 'tigers', 'bears'] 
=> ["1lions”, “tigers”", "bears"] 

>> puts animals 

11ons 
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tigers 

bears 

=> hn] 

>> animals[0] 

=> "11ions” 

>> animals[2] 

=> "bears" 

>> animals[10] 
> 

>> animals[-1] 
=> "bears" 

>> animals[-2] 
=> "tigers" 

>> animals[0..1] 
=> ['"1lions', 'tigers’'] 
>> (0..1).class 
=> Range 


可 以 看 到 ，Ruby 的 集合 提供 了 一 定 的 灵活 性 。 如 果 访 问 任何 未 定义 的 数组 元 素 ，Ruby 会 下 
接 返 回 nil。 你 也 能 发 现 一 些 不 会 让 数组 功能 更 强 ,但 会 让 它 更 简便 多 用 的 特性 。 比 如 ,animals[-I] 
返回 倒数 第 一 个 元 厅 ， animals[-2] 返 回 倒数 第 二 个 元 素 ， 以 此 类 推 。 这样 为 了 便于 使 用 而 添加 
的 特性 就 是 语法 糖 。 表 达 式 animals[0. .1] 看 似 有 几 分 像 语 法 糖 , 但 其 实 不 是 。0. .1 是 个 Range 
( 区间 ) 对 象 ， 表 示 从 0 到 1 (包括 0O 和 1 ) 的 所 有 数字 。 

数组 也 可 容纳 其 他 类 型 的 元 素 : 


>> a[0] = 0 

NameError: un 

fnrnAm /7 rb) "23 
] 








defined local variable or method 'a' for main:Object 

1 1 Ill Vi 

>>a=[ 

=> [] 

呵 ，a 现 在 还 不 是 数组 呢 ， 我 就 把 它 当 成 数组 来 用 了 。 这 错误 也 提示 我 们 ，Ruby 的 数组 和 散 
列表 的 运行 方式 。 实 际 上 ，[] 是 Array 类 的 方法 : 

>> [1].class 

=> Array 

>> [1] .methods.include?("'[]') 


=> true 
>> # 在 ruby 1.9 中 ,请 使 用 [1] .methods.1include?(:[]) 
这 样 看 来 ，[] 和 []= 不 过 是 访问 数组 的 语法 糖 而 已 。 想 正确 使 用 它们 ， 必 须 先 在 变量 里 放 一 
个 空 数 组 ， 然 后 就 能 像 下 面 这 样 操作 变量 : 
>> a[L0] = "zero 
=> "Zero" 
>> a[l] = 1 
=> 1 
>> a[2] = [two ， 'things'] 
=> ["two”", "things"] 
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>> a 
一 > [Fo J ["two", "things"]] 


从 上 面 代码 还 可 看 出 ， 数 组 元 素 不 必 具 有 相同 类 型 。 
>> a= [LL，2，3]，[10，20，30]，[40，50，60]] 
=> [[1, 2, 3], [10, 20, 30], [40, 50,601]] 

>> a[L0][0] 

> 

>> a[ll[2] 

三 > 30 


多 维 数组 也 不 过 是 数组 的 数组 而 已 。 

















=> [1, 1] 


>> a.push (C2) 
=> [1, 2] 

>> a.pop 

三 > 2 

>> a.pop 

一 > 


数组 拥有 极其 丰富 的 API, 可 将 其 用 作 队 列 、 链 表 、 栈 、 集 合 , 等 等 。 现在 , 我 们 来 看 看 Ruby 
的 为 一 个 主要 集合 一 一 散 列 表 。 








2.3.3” 散 列表 


记 住 , 集合 里 面 就 是 一 个 个 用 来 存储 对 和 象 的 桶 。 在 散 列 表 的 桶 里 ,每 个 对 象 上 都 贴 者 一 张 标 
。 这 标签 就 是 键 ， 而 对 象 就 是 键 所 对 应 的 值 。 散 列表 就 是 一 串 这 样 的 键 - 值 对 : 

>> numbers = {1 => ‘one', 2 => two 

=> {1=>"Oone”", 2=>"two"} 

>> numbers[1] 

=> "One" 

>> numbers[2] 

=> "two" 

>> Stuff = {:array => [1, 2, 3], :string => 'Hi, mom!"} 

=> {:array=>[1, 2, 3], :string=>"H1, mom!"} 

>> stuff[:string] 

=> "Hi, mom!™" 


这 段 代 码 不 算 太 复杂 。 散 列表 的 运行 机 制 很 像 效 组 ,但 不 一 定 是 整 效 下 标 ， 而 是 可 以 有 任意 
类 型 的 键 。 最 后 那个 散 列 表 很 有 趣 ， 因 为 我 在 其 中 首次 引入 了 符号 《symbol )。 符 号 是 前 面 汕 有 
冒号 的 标识 待 ， 类 似 于 :symbo1 的 形式 。 它 在 给 事物 和 概念 命名 时 非常 好 用 。 尽 管 两 个 同 值 字符 
中 在 物理 上 不 同 , 但 相同 的 符号 却 是 同一 物理 对 象 。 我 们 可 通过 多 次 获取 相同 的 符号 对 和 象 标识 和 从 
来 证 实 这 一 点 ， 像 下 面 这 样 : 


由 




















图 灵 社 区 会 员 LorraineMeillorrainemei@gmail.com) 专 享 尊重 版 权 


20 第 2 草 Ruby 


>> 'string' .object_id 
=> 3092010 

>> 'string' .object_1d 
=> 3089690 

>> :string.object_id 
=> 69618 

>> :String.object_id 
=> 69618 


散 列 表 有 一 些 别出心裁 的 应 用 。 比 如 , Ruby 虽 然 不 支持 命名 参数 , 但 可 以 用 散 列 表 来 模拟 它 。 
只 要 加 进 一 颗 小 小 的 语法 糖 ， 你 就 能 获得 一 些 有 趣 的 特性 : 


>> def tell_ the truth(options={}) 





>> if options[:profession] == :lawyer 

>> "it could be believed that this is almost certainly not false.' 
>> else 

>> true 

>> end 

>> end 

=> nil 

>> tell_ the truth 

=> true 


>> tell_ the truth :profession => :lawyer 
=> "it could be believed that this 1s almost certainly not false." 


该 方法 带 一 个 可 选 参 数 。 如 果 不 传 入 该 参数 ，options 将 设 为 空 散 列 表 ， 但 如 果 传 
入 :profession=> 为 :1awyer"， 返 回 结果 就 有 所 不 同 。 它 不 会 返回 true， 但 因为 Ruby 的 求 值 机 
制 将 字符 串 也 当 作 true 处 理 ， 所 以 这 和 返回 true 几 乎 训 无 差别 。 还 需 注 意 ， 这 里 的 散 列 表 不 必 
用 大 括号 括 起 来 ， 因 为 将 散 列 表 用 作 肖 数 的 最 后 一 个 参数 时 ， 大 括号 可 有 可 无 。 按理 说 ,既然 数 
组 元 系 、 散 列表 键 、 散 列表 值 几乎 可 以 任 选 类 型 ,那么 我 们 就 能 用 Ruby 构 造 出 极为 精妙 的 数据 结 
构 。 然 而 ， 想 在 正 做 到 这 一 点 ， 还 得 先 学 会 代码 块 才 行 。 

















2.3.4 代码 块 和 yie1d 
代码 块 是 没有 名 字 的 函数 。 它 可 以 作为 参数 传递 给 孙 数 或 方法 ， 比 如 : 


>> 3.times {puts ‘hiya there, kiddo'} 
hiya there, kiddo 
hiya there, kiddo 
hiya there, kiddo 


大 括号 之 间 的 代码 就 称 作 代 码 块 。times 是 Fixnum 类 的 方法 ， 它 会 执行 n 次 x， 其 中 x 是 代码 
块 ，n 是 Fixnum 对 象 的 值 。 可 以 采用 {/} 或 do/end 两 种 界定 代码 块 的 形式 ，Ruby 的 一 般 惯例 是 : 
代码 块 只 占 一 行 时 用 大 括号 ， 代 码 块 占 多 行 时 用 do/end。 代 码 块 可 带 有 一 个 或 多 个 参数 : 

















QD 即 传 人 一 个 包含 键 :profession 和 值 :1awyer 的 散 列 表 ， 如 代码 倒数 第 二 行 的 :profession => :1awyer 所 示 。 这 
里 profession 为 职业 之 意 ，1awyer 为 律师 之 意 ， 因 此 该 参数 的 语义 是 职业 为 律师 。 
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>> animals = ['lions and " ， 'tigers and ， bears  ， oh my j 
=> [ iions and ", "tigers and", "bears", oh my"] 

>> animals.each {|al puts a} 

11ons and 

t1gers and 

bears 

oh my 


上 面 这 段 代 码 能 让 你 见识 到 代码 块 的 威力 ， 它 指示 Ruby 在 集合 的 每 个 元 素 上 执行 某 些 行为 。 
仅仅 用 上 少许 代码 块 语 句 ，Ruby 就 遍历 了 每 一 个 元 又 , 还 把 它们 全 都 打印 了 出 来 。 想 亲手 实践 一 
下 如 何 做 到 这 点 吗 ” 看 看 以 下 自 定义 实现 的 times 方 法 : 


>> Class Fixnum 
>> def my_times 














>> i = self 

>> while 1 > 0 
>> I | 
>> yield 

>> end 

>> end 

>> end 

=> nil 


>> 3.my_times {puts ‘mangy moose'} 

mangy moose 

mangy moose 

mangy moose 

这 段 代码 打开 一 个 现 有 的 类 ， 并 向 其 中 添加 一 个 方法 。 此 例 中 ,添加 的 方法 是 my_times， 它 
用 yie1d 调 用 代码 块 ， 并 循环 某 个 给 定 次 数 。 代 码 块 还 可 用 作 一 等 参数 (first-class parameter )"， 
看 看 下 面 的 例子 : 

>> def call block(&b1locky 2 

>> block.call 

>> end 

=> ni | 

>> def pass_block(C&block) 

>> call block(&block) 

>> end 

=> nil 

>> pass block {puts ‘Hello, block'} 

Hello, block 


这 拉 术 能 让 你 把 可 执行 代码 派发 给 其 他 方法 。 在 Ruby 中 ,代码 块 不 仅 可 用 于 循环 , 还 可 用 于 
延迟 执行 : 


execute at noon { puts "Beep beep... time to get up'}® 














G) 即 可 将 代码 块 作为 参数 直接 传递 给 孔 数 (也 就 相当 于 将 函数 作为 参数 传递 给 函数 ), 而 无 需 包 装 在 其 他 结构 中 传递 。 

在 Ruby 中 ， 参 数 名 之 前 加 一 个 “&”， 表 示 将 代码 块 作为 闭 包 传递 给 函数 。 

@) 代码 块 中 的 行为 , 也 就 是 puts 'Beep beep..time to get up' 并 不 会 马上 执行 , 而 要 等 到 调用 该 代码 块 相关 的 yie1d 
时 才 会 执行 。 


图 灵 社 区 会 员 LorraineMei(lorrainemei@gmail.com) 专 享 尊重 版 权 


2 第 2 章 Ruby 


执行 菜 些 条 件 行为 : 
Co 一 段 代码 ……: 


in_case_ of _ emergency do 
use_credit card 
panic 

end 


def in_case_ of _ emergency 
yield if emergency? 
end 


强制 实施 某 种 策略 : 

within_a transaction do 
things_that 
must_happen_together 

end 

def within a transaction 
begin_ transaction 
yield 
end_transaction 

end 


以 及 诸多 其 他 用 途 。 你 会 见 到 各 种 使 用 代码 块 的 Ruby 库 ， 包 括 处 理 文件 的 每 一 行 ， 执 行 HTTP 事 
务 中 的 任务 ， 在 集合 上 进行 各 种 复杂 操作 等 。Ruby 倍 直 束 是 个 代码 块 的 大 联欢 。 

从 文件 中 运行 Ruby 

随 春 代码 示例 越 来 越 复 杂 ,用 交互 命令 行 运行 代码 也 越 来 越 肪 烦 。 命 令 行 人 研究 少量 代码 疝 可 ， 
但 多 数 情况 下 ,还 是 把 代码 放 入 文件 为 好 。 创建 一 个 名 为 hello.rb 的 文件 ， 其 中 包含 任意 你 想 执 行 
的 Ruby 代 码 ， 比 如 : 

puts ‘hello, worild' 

把 文件 保存 到 当前 文件 来 ， 然 后 从 命令 行 执行 以 下 命令 : 

batate$ ruby hello.rb 

hello, world 


集成 开发 环境 ( integrated development environment, IDE ) 虽然 功能 完善 ， 但 用 它 开 发 Ruby 
程序 的 人 很 少 ， 大 多 数 人 还 是 乐于 使 用 简便 易 用 的 文件 编辑 器 。 我 最 喜欢 的 编辑 需 是 TextMate， 
包括 vi、emacs 在 内 的 众多 热门 编辑 需 也 都 拥有 Ruby 插 件 。 在 你 熟练 掌握 用 文件 运行 Ruby 程 序 之 
后 ， 我 们 开始 研究 Ruby 程 序 的 可 复 用 组 件 。 























2.3.5 ”定义 类 





Ruby 和 Java、C#、C++ 一 样 ， 也 有 类 和 对 象 。 想 想 饼 干 模 板 和 饼干， 类 就 是 对 象 的 模板 。 当 
然 , Ruby 也 支持 继承 , 但 和 C++ 不 同 ，Ruby 中 的 类 只 能 继承 自 一 个 叫做 超 类 的 类 。 耳 上 听 为 虚 眼 见 
为 实 ， 打 开 命 令 行 ， 输 入 下 列 代码 : 
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>> 4.class 

=> Fixnum 

>> 4.class.superclass 

=> Integer 

>> 4.class.superclass.superclass 

=> Numeric 

>> 4.class.superclass.superclass.superclass 

=> Object 

>> 4.class.superclass.superclass.superclass.superclass 
=> nl11 


到 目前 为 止 , 还 没有 什么 难以 理解 的 内 容 。 对 象 是 从 类 派生 出 来 的 ,4 的 类 是 Fixnum, Fixnum 
继承 自 Integer， 而 Integer 叉 继承 自 Numeric， 最终，Numeric 继 了 藉 日 0Object。 

看 一 下 图 2-1， 它 展示 了 这 些 事 物 是 如 何 搭 配 在 一 起 的 。 所 有 的 事物 ， 归 根 结 底 都 继承 日 
0bject。 一 个 Class 同 时 也 是 一 个 Module。C1lass 的 实例 将 作为 对 象 的 模板 。 在 我 们 的 例子 中 ， 
Fixnum 是 Class 的 一 个 实例 ， 而 4 义 是 Fixnum 的 一 个 实例 。 每 一 个 类 同时 也 是 一 个 对 象 。 


>> 4.class.class 

=> Class 

>> 4.class.class.superclass 

=> Module 

>> 4.class.class.superclass.superclass 
=> Object 











图 2-1 Ruby 元 模型 


如 此 看 来 ,， Fixnum 派 生 目 Class 类 。 从 这 里 开始 , 你 可 能 会 有 些 费解 。Class 继 承 目 Modu1e， 





Module 叉 继承 自 0bject， 说 到底 ，Ruby 中 的 一 切 事物 都 有 一 个 共同 祖先 一 一 0bject。 


ruby/tree.rb 





class Tree 
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attr accessor :children, :node name 


def initialize(name, children=[]) 
Qchildren = children 
Qnode_name = name 

end 


def visit all(&block) 

visit &block 

children.each {|c| c.visit all &block} 
end 


def visit(&block) 
block.call self 
end 
end 


ruby_tree = Tree.new( “RuUby ， 
[Tree.new("Reia"), 
Tree.new("MacRuby")] ) 


puts "Visiting a node” 
ruby_tree.visit {|node| puts node.node name} 
puts 


puts “VTSTtTng9 entire tree” 
ruby_tree.visit all {|node| puts node.node name} 


这 个 类 用 各 种 强大 特性 实现 了 一 棵 非常 简单 的 树 。 它 有 三 个 方法 : initialize、visit 和 
visit_al1， 还 有 两 个 实例 变量 : children 和 node_name。initialize 方 法 有 特殊 含义 ， 类 在 
初始 化 一 个 新 对 象 的 时 候 ， 会 调用 这 个 方法 。 

在 这 里 ,我 有 必要 指出 Rupy 的 一 些 惯 例 和 规则 。 类 应 以 大 写字 母 开 头 , 并 日 一 般 采 用 骆驼 命 
名 法 ， 如 Came1Case。 实 例 变 量 〈 一 个 对 象 有 一 个 值 ) 前 必须 加 上 @， 而 类 变量 (一 个 类 有 一 个 
值 ) 前 必须 加 上 @Q@。 实 例 变 量 和 方法 名 以 小 写字 母 开 头 ， 并 采用 下 划 线 命名 法 ， 如 
underscore_style。 常 量 采 用 全 大 写 形 式 ， 如 ALL_CAPS。 前 面 那 段 代 码 定 义 了 一 个 树 类 。 每 棵 
树 都 有 两 个 实例 变量 : Qchi1dren 和 @node_name。 用 于 逻辑 测试 的 函数 和 方法 一 般 要 加 上 问号 ， 
Uif test?。 

attr 关 键 字 可 用 来 定义 实例 变量 。 它 有 几 种 版 本 ， 其 中 最 常用 的 版 本 是 attr 和 
attr_accessor。attr 定 义 实例 变量 和 访问 变量 的 同名 方法 ， 而 attr_accessor 定 义 实例 变量 、 
访问 方法 和 设置 方法 。” 

前 面 那 段 程序 真是 老 进 了 不 少 东 西 ， 因 此 有 些 难 以 理解 。 它 利用 代码 块 和 递归 ,使 用 户 能 访 
问 树 中 所 有 节点 。 每 个 Tree 类 的 实例 都 带 有 一 个 厄 点 。initialize 方 法 设置 了 了 children 和 























中 实际 上 , attr 也 可 以 定义 设置 方法 , 只 需 将 true 作 为 第 二 个 参数 传 入 即 可 , 如 attr_accessor :children, true。 
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node_name 的 初始 值 。visit 方 法 调用 传人 的 代码 块 。visit_al1 方 法 先 对 当前 节点 调用 visit 
方法 ， 然 后 对 每 个 子 节 点 递归 调用 visit_al11 方 法 。 

类 代码 后 面 的 剩余 代码 都 用 到 了 该 类 的 API， 先 是 定义 一 棵 树 ， 然 后 访问 树 中 的 一 个 节点 ， 
最 后 访问 所 有 树 节 点 。 这 产生 了 以 下 输出 : 


Visiting a node 
Ruby 








visiting entire tree 
Ruby 

Reia 

MacRuby 


类 只 是 Ruby 的 诸多 复 森 概念 之 一 。 你 在 阅读 图 2-1 上 面 的 那 段 代码 时 ， 可 能 党 见 过 模块 
(module ) 这 个 词 。 现 在 ， 让 我 们 回 过 头 去 ， 仔细 琢磨 一 下 模块 的 概念 。 


2.3.6 ”编写 Mixin 


面向 对 和 象 语言 利用 继承 ， 将 行为 传播 到 相似 的 对 象 上 。 但 对 和 象 右 想 继承 并 不 相似 的 多 种 行 
为 ,一 方面 可 通过 允许 从 多 个 类 继承 ( 多 继承 ) 而 实现 ， 为 一 方面 也 可 借助 于 其 他 解决 方案 。 
过 往 经 验 表 明 ， 多 继承 不 仅 复 困 ， 且 问题 多 多 。Java 采 用 接口 解决 这 一 问题 ， 而 Ruby 采 用 的 是 
模块 。 檬 块 是 函数 和 第 量 的 集合 。 如 来 在 类 中 包含 了 一 个 模块 ， 那 么 该 模块 的 行为 和 当量 也 会 
成 为 类 的 一 部 分 。 

通过 下 面 这 个 类 ， 我 们 可 以 把 to_f 方 法 添加 到 任意 一 个 类 上 : 


ruby/to_file.rb 





























module ToFile 
def filename 
"object #{self.object 1d}.txt" 
end 


def to _f 
File.open(filename, 'w') {|f| f.write(to s)} 
end 
end 
class Person 
include ToFile 
attr_accessor :name 


def initialize (name) 
Qname = name 
end 


def to s 


name 
end 
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end 


Person.new( 'matz').to f 

代码 一 开始 是 模块 定义 。 它 定义 了 两 个 方法 : to_f 方 法 把 to_s 方 法 的 输出 写 入 文件 ， 
filename 方 法 提供 了 写 和 人 文件 的 文件 名 。 这 里 有 件 事 很 有 趣 : to_s 在 模块 中 使 用 , 在 类 中 实现 ， 
但 定义 模块 的 时 候 ， 实 现 它 的 类 甚至 还 没有 定义 ! 这 说 明 模 块 与 包含 它 的 类 之 则 ,是 以 一 种 相当 
隐秘 的 方式 相互 作用 的 。 模 块 依赖 的 类 方法 通常 不 多 。 在 Java 中 ， 这 种 依赖 关系 是 显 式 的 ， 即 类 
会 实现 一 个 约束 方法 名 的 接口 ; 而 在 Ruby 中 ， 这 依赖 关系 是 隐 式 的 ， 即 通过 鸭子 类 型 来 实现 。 

对 于 Person 类 的 细 广 ， 我 们 完全 不 感 兴趣 ， 这 正 是 关键 所 在 。 的 确 ， 我 们 在 Person 类 中 包 
含 了 模块 , 但 写 和 文件 的 能 力 ， 和 这 个 类 是 不 是 Person 没 有 一 点 儿 关 系 。 我 们 是 通过 混入 (mix in ) 
功能 的 方式 ， 实 现 了 在 文件 中 添加 内 容 的 功能 。 我 们 可 以 对 Person 类 添加 新 的 mixin， 也 可 以 派 
生 新 的 子 类 ， 这 些 子 类 虽然 不 了 解 mixin 的 具体 实现 ,但 仍然 拥有 mixin 的 功能 。 话 说 到 这 里 ， 你 
应 该 已 学 会 利用 简明 的 单 继 承 , 先 定义 类 的 主要 部 分 , 然后 用 模块 添加 额外 功能 。 这 种 由 Flavors” 
引入 ， 在 上 至 Smalltalk”， 下 至 Python 的 众多 语言 中 采用 的 编程 风格 ， 就 称 作 mixin。 在 这 些 语言 
中 ， 市 mixin 的 载体 虽 未 必 称 作 模 块 ， 但 基本 前 提 是 一 致 的 : 使 用 单一 继承 结合 mixin 的 方式 ， 尽 
可 能 合理 地 把 各 种 行为 打包 到 一 起 。 


2.3.7 模块 、 可 枚 举 和 集合 


Ruby 有 两 个 至 关 重 要 的 mixin: 枚 举 ( enumerable ) 和 比较 (comparable )。 如 果 想 让 类 可 枚 
举 ， 必 须 实现 each 方 法 ; 如 果 想 让 类 可 比较 ， 必 须 实 现 <=> 操 作 符 。<=> 被 人 们 叫做 太空 船 操 作 
和 从 ， 它 比较 a、b 两 操作 数 ，b 较 大 返回 -1，a 较 大 返回 1， 相 等 返回 0。 为 避免 方法 实现 之 亩 ,集合 
已 实现 了 许多 便于 使 用 的 可 枚 举 和 可 比较 的 方法 。 打 开 命令 行 输入 以 下 代码 : 

>> begin” <=> “end 

=> -1 

>> 'same' <=> 'same' 

> 0 

>>a= [5, 3, 4, 1] 

=> [5, 3,4. 1| 

>> a.sort 

=> [1, 3, 4, 5] 

>> a.any? {|1| 1 > 6} 

=> false 

>> a.any? {|1| 1 > 4} 

=> true 

>> a.all? {|1| 1 > 4} 

=> false 









































() Falvors 是 Lisp 一 种 早期 的 面向 对 象 扩展 ， 由 MIT 人 工 智 能 实验 室 的 Howard Cannon 开 发 。 

(2 Smalltalk 是 一 门 带 有 纯 面 向 对 象 、 动 态 类 型 、 反 射 等 特性 的 编程 语言 。 它 由 施乐 由 罗 奥 多 人 研究 中 心 ( Xerox PARC ) 
的 Alan Kay、Dan Ingalls 、Ted Kaehler 等 人 于 1969 年 开始 开发 ， 并 于 1972 年 面世 。 该 语言 对 后 来 的 许多 编程 语言 
及 思想 都 有 重大 影响 。 
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>> a.all? {|1| 1 > 0} 

=> true 

>> a.collect {|i| 1 * 2 

=> [LU ©. 8 2] 

>> a.select {|i| 1% 2 == 0 } # even 
三 > 

>> a.select {|1| 1%2== 1 } # odd 
> ee 

>> a.max 

三 六 SS 

>> a.member?(2) 

=> false 


只 要 集合 中 任 一 元 素 条 件 为 真 ，any? 就 返回 true; 只 有 和 集合 所 有 元 素 条 件 为 真 ，a11? 才 返回 
true。 由 于 整数 已 通过 Fixnum 类 实现 了 太空 船 探 作 符 ， 因 此 可 以 调用 sort 方 法 排序 ， 还 可 以 调 
用 min 和 max 方 法 计算 最 小 值 和 最 大 值 。 

我 们 也 可 以 做 一 些 基于 集合 (set ) 的 操作 。co11ect 和 map 方 法 把 函数 应 用 到 每 个 元 素 上 ， 
并 返回 结 采 数组 。find 方 法 找到 一 个 符合 条 件 的 元 素 ， 而 select 和 find_al1 方 法 均 返 回 所 有 符 
合 条 件 的 元 素 。 你 还 可 以 用 inject 方 法 计算 列表 的 和 与 积 : 


>> a 
=> 5s 3 4， 1] 
>> a.inject(0) {|sum, 1| sum + 171+ 


























= 3 

>> a.inject {|sum, 1| sum + 71} 

=> 13 

>> a.inject {|product, 1| product x: 1} 
=> 60 


inject 方 法 看 似 复杂 , 实则 不 然 。 它 后 面 跟 一 个 代码 块 , 里 面 有 两 个 参数 和 一 个 表达 式 。inject 
会 通过 第 二 个 参数 , 把 每 个 列表 元 素 传人 代码 块 , 这样 代 码 块 就 能 在 每 个 列表 项 上 执行 操作 。 第 
一 个 参数 是 代码 块 上 一 次 执行 的 结果 。 由 于 代码 块 第 一 次 执行 时 , 还 没有 上 一 次 执行 的 结果 ， 因 
此 可 以 把 初始 值 作为 inject 方 法 的 参数 传人 。( 如 果 不 设 初始 值 , inject 会 使 用 集合 中 的 第 一 个 
值 。) 在 添加 了 一 些 辅助 代码 之 后 ， 我 们 再 来 看 看 inject 方 法 的 执行 过 程 : 

>> a.inject(0) do |sum, 1| 

>> puts "sum: #{sum} 1: #{1} Sum + 1: #{sum + i}" 

>> sum + 1 

>>end 

SUm TU es 1 5 Sum + 1: 5 

sum: 5 1: 3 sum + 1: 8 

sum: 8 1: 4 sum + 1: 12 

sum: 12 1: 1 sum + 1: 13 

正如 我 们 所 料 ， 上 一 行 的 结 采 总 会 显示 为 这 一 行 的 第 一 个 值 。 有 了 inject 方 法 ， 你 能 计算 
多 个 句子 的 单词 总 数 ， 能 找 出 段落 各 行 的 最 长 单词 ， 还 能 做 其 他 很 多 很 多 事情 。 


2.3.8 ”第 二 天 我 们 学 到 了 什么 
这 是 你 第 一 次 见识 到 Ruby 中 的 几 颗 糖 和 一 点 小 魔法 。 你 渐渐 明月 ，Ruby 是 一 门 多 么 灵活 的 
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语言 。 集 合 简 生 太 好 用 了 : 用 得 最 多 的 两 个 集合 都 带 有 众多 API。Ruby 关 注 的 是 程序 员 的 效率 ， 
应 用 程序 的 效率 是 次 要 的 。 枚 举 檬 块 让 你 品尝 到 Ruby 良 好 设计 的 味道 , 单 继 承 的 面向 对 象 结构 虽 
不 是 什么 新 侠 事 物 , 但 Ruby 的 实现 充满 了 符合 耻 觉 和 实用 的 特性 。 如 此 程度 的 抽象 并 没有 为 Ruby 
汕 来 本 质 上 的 变化 ， 真 正点 石 成 金 的 魔法 还 在 后 面 。 











2.3.9 第 二 天 自习 


解答 今天 的 问题 会 比 昨 天 耗费 更 多 精力 。 不 过 你 用 Ruby 实 践 的 时 间 也 比 昨 天 更 长 了 , 所 以 我 
想 ， 你 应 该 已 经 做 好 了 准备 。 下 面 这 些 问题 会 迫使 你 更 多 地 采用 分 析 的 思考 方式 。 
找 
口 分 别 找到 用 代码 块 和 不 用 代码 块 谈 取 文 件 的 方法 ， 用 代码 块 有 什么 好 处 ? 
口 如 何 把 散 列 表 转 换 成 数组 ? 数组 能 转换 成 散 列 表 吗 ? 
口 你 能 循环 遍历 散 列 表 吗 ? 
口 Ruby 的 数组 能 当 作 栈 来 用 ， 它 还 能 用 作 哪 些 常 用 的 数据 结构 ? 
做 
口 有 一 个 数组 , 包含 16 个 数学 。 仪 用 each 方 法 打印 数组 中 的 内 容 , 一 次 打印 4 个 数字 。 然后 ， 
用 可 枚 举 模块 的 each_s1ice 方 法 重 做 一 遍 。 
口 我 们 前 面 实现 了 一 个 有 趣 的 树 类 Tree， 但 它 不 具有 简洁 的 用 户 接 口 ， 来 设置 一 棵 新 树 ， 
为 它 写 一 个 初始 化 方法 ， 接 受 散 列表 和 数组 航 全 的 结构 。 写 好 之 后 ， 你 可 以 这 样 设置 新 
树 : {'grandpa' => { 'dad' => {'child 1' => {}, 'child 2' => {} }, 'uncle' 
=> {'child 3” => {}, 'child 4" => {} } } }o 
口 写 一 个 简单 的 grep 程 序 , 把 文件 中 出 现 某 词组 的 行 全 都 打印 出 来 。 这 需要 使 用 简单 的 正则 
表达 式 匹 配 ， 并 从 文件 中 读 取 各 行 。( 这 在 Ruby 中 超 乎 想象 地 简单 。) 如 果 你 愿意 的 话 ， 
还 可 以 加 上 行 号 。 











2.4 第 三 天 : 重大 改变 


Mary Poppins 之 所 以 成 功 ， 秘 诀 在 于 她 不 仅 把 家 务 变 得 妙趣 横生 ， 还 让 人 们 在 面 对 索 重 家 务 
时 ， 和 苑 会 调动 热情 、 发 挥 想 象 力 ， 从 而 使 家 务 萎 动 轻松 许多 。 你 可 能 不 会 像 Mary Poppins 那 样 ， 
把 Ruby 彻 底 改造 一 番 , 而 是 选择 稳妥 行事 , 只 用 它 去 做 一 些 其 他 语言 已 可 从 容 完成 的 任务 。 然 而 ， 
只 有 改变 一 门 语言 的 本 来 面目 和 行为 方式 , 你 才 算 真正 掌握 了 赋予 编程 无 穷 乐 趣 的 魔法 。 在 本 书 
的 每 一 章 ， 你 都 会 看 到 一 个 有 价值 的 问题 ， 而 这 问题 , 正 是 那 一 章 的 语言 所 擅长 解决 的 。 对 Ruby 
而 言 ， 这 问题 是 元 编程 ( metaprogramming )。 

元 编程 , 说白 了 就 是 “ 写 能 写 程序 的 程序 ”。Rails 核 心 的 ActiveRecord 框 架 ， 就 用 元 编程 实现 
了 一 门人 简便 易 用 的 语言 ， 以 便 编写 连接 数据 库 表 的 类 。 如 果 给 department ( 部门 ) 写 个 
ActiveRecord 类 ， 写 出 来 可 能 像 下 面 这 样 : 
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class Department < Act1veRecord: :Base 
has_many :employees 
has_one :manager 

end 


has_many 和 has_one 是 两 个 Ruby 方 法 ,它们 会 把 建立 一 对 多 关系 将 要 用 到 的 所 有 实例 变量 和 
方法 都 添加 进来 。 这 个 类 的 定义 看 春 就 像 个 碳 文 句子 一 样 , 丝 军 没有 其 他 数据 库 框 架 中 稼 见 的 干 
扰 和 和 负担。 下面 ， 我 们 来 看 儿 种 可 用 在 元 编程 当中 的 技术 。 


2.4.1 开放 类 


你 和 “开放 类 ” 曾 有 过 一 面 之 交 ?， 它 可 以 随时 改变 任何 类 的 定义 ， 常 用 于 给 类 添加 行为 。 
这 里 有 个 非常 好 的 例子 ， 来 日 Rails 框 架 ， 它 为 Ni1Class 添 加 了 一 个 方法 : 


ruby/blank.rb 




















class NilClass 
def blank? 
true 
end 
end 


class String 


def blank? 
self.size == 
end 
end 
["", "person”, nil].each do |element| 
puts element unless element.blank? 
end 


在 某 个 类 名 上 首次 调用 class 关 键 学 会 定义 一 个 类 ， 但 如 果 该 类 已 定义 过 ， 再 调用 class 会 
修改 先前 的 类 定义 。 以 上 代码 对 两 个 现 有 的 类 Ni1Class 和 String 添 加 了 一 个 blank? 方 法 。 
添加 这 方法 是 因为 我 检查 字符 串 状 态 时 , 经常 想 看 看 字符 串 是 否 为 空 , 而 字符 串 既 可 能 这 一 个 值 ， 
也 可 能 是 空 字 符 串 ， 还 可 能 是 ni1。 有 了 这 个 小 巧 的 惯用 法 ， 仅 需 一 次 方法 调用 ， 就 能 快速 检 出 
后 两 种 空 状态 ， 因 为 blank? 都 会 返回 true。 不 管 字符 串 用 的 是 哪个 类 ， 只 要 提供 blank? 方 法 ， 
这 么 检查 就 没 问 题 。 只 要 走 起 来 像 鸭 子 、 叫 起 来 也 像 觅 子 ， 它 就 是 只 鸭子 ， 没 必要 去 做 什么 抽 血 
化 验 。 

看 看 这 段 代 人 码 到 底 做 了 些 什么 。 你 想 要 一 把 前 铁 如 泥 的 此 首 , 而 Ruby 正 是 将 这 样 一 把 已 首 递 
到 你 竹中， 于 是 ， 你 得 以 开放 String 和 Ni1C1lass 两 个 类 ， 对 它们 进行 了 重 定 义 。 利 用 重 定义 ， 
我 们 甚至 能 让 Ruby 完 全 瘫痪 ， 比 如 重 定义 Class .new 方 法 。 对 于 开放 类 来 说 ,这 里 的 权衡 主要 考 
不了 自由 。 有 这 种 随时 重 定 义 任 何 类 或 对 象 的 目 由 ,我们 就 能 写 出 极为 通俗 易 懂 的 代码 。 不 过 你 
也 要 明白 ， 目 由 越 大 、 能 力 越 串 ， 担 负 的 责任 也 越 重 。 























GD 参见 第 2.3.4 节 “代码 块 和 Yie1d ”。 
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实现 用 于 领域 编程 的 特定 语言 时 ,开放 类 特别 有 用 ,其 中 一 种 常用 情况 ,是 通过 语言 表示 业 
务 领域 的 度量 单位 ， 例 如 ， 考 感 下 面 这 个 以 英才 为 距离 单位 的 API: 


ruby/units.rb 





class Numeric 
def inches 
self 
end 


def feet 
self * 12.1inches 
end 


def yards 
self * 3.Tfeet 
end 


def miles 
self * 5280.Tfeet 
end 


def back 
self * -1 
end 


def forward 
self 
end 
end 


puts 10.miles.back 
puts 2.feet.forward 


使 用 开放 类 束 可 以 像 上 面 那 样 采 用 最 简单 的 语法 轻松 实现 用 瑞 寸 表示 的 距离 。 不 过 , 除了 开 
放 关 ， 还 有 别 的 技术 能 让 Ruby 的 威力 更 加 强大 。 











2.4.2 ”使 用 method_missing 


Ruby 找 不 到 某 个 方法 时 ， 会 调用 一 个 特殊 的 调试 方法 显示 诊断 信息 。 该 特性 不 仅 让 Ruby 更 
易于 调试 ， 有 时 还 能 实现 一 些 不 易 想 到 的 有 趣 行为 。 只 需要 窗 盖 method_missing 方 法 ， 我们 就 
可 以 实现 这 些 行 为 。 思 考 一 下 ， 如 何 编写 一 个 表示 罗马 数字 的 API。 或 许 你 党 得 可 以 用 方法 调用 
轻松 实现 这 个 API， 类 似 Roman ,number_for "ii"。 说 实话 ， 这 样 做 也 不 坏 ， 毕 竟 没 有 括号 、 分 
号 什么 的 捣乱 ， 不 过 用 Ruby， 我 们 能 做 得 更 漂亮 : 
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ruby/roman.rb 


class Roman 
def self.method missing name, *args 
roman = name.to_s 
roman.gsub!("IV", 
roman.gsub!("IX”", "VIIII") 
roman.gsub!("XL", 
roman.gsub!("XC", 


(roman.count("I") 
roman.count("V") 
roman.count("X") x 10 + 
roman.count("L"”) * 
roman.count("C") 

end 
end 


puts Roman.X 
puts Roman.XC 
puts Roman.XII 
puts Roman.X 


这 上段 代码 十 分 简明 ， 是 将 method_missing 方 法 用 于 实践 的 极 佳 示 例 。 我 们 先是 窗 盖 了 
method_missing 方 法 。 通 过 该 方法 的 参数 列表 ,可 获得 未 找到 方法 的 名 称 和 参数 ,这 个 例子 中 ， 
我 们 只 对 名 称 感 兴趣 。 首 先 ， 我们 把 名 称 转换 为 字符 串 ; 然后 ，iv 和 ix 这 样 的 特殊 数字 形式 ”， 
将 被 蔡 换 为 更 容易 计数 的 字符 串 ; 最 后 , 是 对 罗马 数字 进行 计数 , 并 将 计数 绪 采 与 数字 的 值 相 乘 。 
这 个 API 比 前 面 提 到 的 那个 简单 得 多 ， 对 比 一 下 Roman.1 和 Roman.number_for " "就 能 看 出 来 。 

然而 , 这 样 做 也 要 付出 代价 : 我 们 写 的 类 调试 起 来 会 比 过 去 困难 得 多 , 因为 Ruby 再 也 不 会 告 
诉 你 找 不 到 某 个 方法 ! 我 们 当然 想 严 格 检查 错误 ， 确 保 方 法 接受 了 正确 的 罗马 数字 。 但 如 果 不 熟 
悉 method_missing 方 法 的 上 述 用 法 ， 想 找到 Roman 类 如 何 实现 ii 方法 都 会 很 困难 ， 更 别 说 检查 
错误 了 。 尽 管 如 此 ，method_missing 方 法 仍然 是 你 武 硕 库 中 的 一 把 利 锅 。 只 是 在 用 它 的 时 候 一 
定 要 三 思 而 行 。 


2.4.3 ”模块 


说 到 Ruby 最 流行 的 元 编程 方式 ， 非 模块 莫 属 。 仅 在 模块 中 写 上 灾 灾 数 行 代码 ， 就 可 以 实现 
def 或 attr_accessor 关 键 字 的 功能 。 你 还 可 以 通过 一 些 令 人 惊叹 的 方式 扩展 类 定义 ， 其 中 一 种 
技术 是 设计 自己 的 DSL ( domain-specific language， 领 域 特定 语言 )， 再 用 DSL 定 义 自己 的 类 ”。 该 


























中 罗马 数字 一 共有 了 七 个 : I[、V、X、L、C、D、M, 分 别 代 表 : 1、5、10、50、100、500、1000， 具体 规 则 请 参见 
维基 百科 的 “罗马 数字 ” 词 条 。 文 中 程序 只 考虑 到 C， 也 就 是 100。 该 程序 为 计算 方便 ， 把 数字 的 “ 左 减 ” 形 式 一 
律 转换 成 “ 右 加 ”形式 ( 尽管 不 符合 规则 )， 再 对 转换 后 的 数字 进行 计算 。 

(DSL 可 以 为 某 个 特定 领域 量 届 打造 一 门 语言 。Ruby 中 就 有 个 广为人知 的 例子 : ActiveRecord 的 持久 化 框架 使 用 
DSL， 把 一 个 类 映射 到 一 张 数据 库 表 上 。 一 一 原 书 注 
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DSL 在 模块 中 定义 各 种 方法 ， 这 些 方法 语 加 了 对 类 进行 管理 所 必需 的 全 部 方法 和 篆 量 。 
首先 ,用 笛 见 的 超 类 《〈superclass ) 训 析 程序 示例 。 从 下 面 的 程序 中 ， 你 将 会 了 解 到 我 们 稍 后 
用 元 编程 编写 的 将 是 什么 样 的 类 。 这 程序 很 简单 一 一 根据 类 名 ， 打 开 相 应 的 CSV 文 件 : 


ruby/acts as_csv_class.rb 








class ActsASsCSvV 
def read 
file = File.new(self.class.to s.downcase + '.txt') 
Qheaders = file.gets.chomp.split(', ') 


file.each do |row| 
Qresult << row.chomp.split(C', ') 
end 
end 


def headers 
Qheaders 
end 


def csv contents 
Qresult 
end 


def 1nitialize 


read 


m = RubyCsv.new 
puts m.headers.1inspect 
puts m.csv_contents.inspect 


这 个 基础 类 定义 了 4 个 方法 : headers 和 csv_contents 是 两 个 仪 返回 实例 变量 值 的 访问 器 ， 
initialize 初 始 化 读 取 结果 ， 而 read 承 担 了 这 个 类 的 大 部 分 工作 一 一 打开 文件 ， 读 取 表 涉 ， 把 
表 头 切 分 成 一 个 个 字段 ， 再 循环 各 行 ， 把 每 一 行 的 内 容 放 入 数组 。 这 个 读 取 CSV 文 件 的 类 ， 因 为 
没 处 理 引 号 之 类 的 特殊 情况 ”， 所 以 功能 实现 并 不 完整 ,但 其 思路 不 难 理解 。 

下 面 的 代码 还 是 读 取 CSV 文 件 ， 但 这 回 ， 用 一 个 叫做 宏 ( macro ) 的 模块 方法 添加 类 行为 。 宏 
经 销 根 据 环境 变化 改变 类 行为 。 在 示例 中 , 宏 开放 类 , 并 把 所 有 与 CSV 文 件 相 关 的 行为 复制 到 类 中 。 














J CSV 文 件 有 一 些 特殊 规则 ,比如 , 由 于 逗号 和 换行 符 用 来 切 分 字段 和 行 , 而 且 CSV 文 件 忽略 字段 内 容 前 后 的 空格 ， 
此 奋 内 容 本 号 市 有 逗号 、 换 行 符 或 前 后 空格 时 ， 必 须 用 双 引 号 把 内 容 括 起 来 ， 而 在 内 容 本 吴 带 有 双 引 号 ， 还 必 
须 用 两 个 双 引 号 代 蔡 单个 双 引 叶 。 这 些 神 需要 在 读 取 时 额外 处 理 。 
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ruby/acts_as_csv.rb 


class ActsAsCsyv 
def self.acts as csv 


define method 'read' do 
file = File.new(self.class.to s.downcase + '.txt') 
Qheaders = file.gets.chomp.split(", ') 





file.each do |row | 
Qresult << row.chomp. 


end 
end 


define method "headers" do 
Qheaders 
end 


define method "csv contents” do 
Qresult 
end 


define method''71n71tialize'' do 
Qresult = [] 
read 
end 
end 
end 


class RubyCsv < ActsASsCSV 
actSs_as_CSV 
end 


m = RubyCsv.new 
puts m.headers.inspect 
puts m.csv_contents.inspect 


元 编程 发 生 在 acts_as_csv 宏 当中 ， 它 对 我 们 想 洪 加 到 目标 类 上 的 所 有 方法 都 调用 了 
define_method。 现 在 ， 当 目标 类 调用 acts_as_csv 时 ， 安 代码 会 为 目标 类 定义 4 个 方法 。 

所 以 说 ，acts_as_csv 安 不 过 是 添加 了 一 些 方法 ， 而 这 些 方法 本 可 以 通过 继承 轻松 添加 。 这 
样 设 计 看 来 改进 不 大 ， 但 好 戏 还 在 后 面 。 我 们 看 看 在 模块 中 ， 同 样 的 行为 是 如 何 实现 的 : 


ruby/acts_as_csv_module.rb 











module ActsAsCSsv 
def self.included(base) 


base.extend ClassMethods 
end 
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module ClassMethods 
def acts as_csv 
include InstanceMethods 
end 
end 


module InstanceMethods 


def read 
Qcsv_contents = [|] 


fi ] mame 一 cecalf -1 天 天 十 全 CC AAwn 
1 1 1 一 11 Il [| MA 


"ACA LL 7 + 
CLII 一 Sm! HE LV oO VYVIILCLDY TT C 


v+i! 
CAL 


file = File.new(filename) 
Qheaders = file.gets.chomp.split(C(', ') 


file.each do |row| 
Qcsv_contents << row.chomp.split(', ') 
end 
end 


attr accessor :headers, :csv_ contents 


def 1nitialize 
read 
end 


end 
end 


class RubyCsv  # 没有 继承 ， 你 可 以 自由 添加 
1nclude ActsAsCSsv 
acts_as_CSV 

end 


m = RubyCsv .new 
puts m.headers.1nspect 
puts m.csv_contents.inspect 


只 要 某 个 模块 被 另 一 模块 包含 ，Ruby 就 会 调用 该 模块 的 included 方 法 。 记 住 ， 类 也 是 模块 。 
在 ActsAsCsv 模 块 的 included 方 法 中 ,我们 扩展 了 名 为 base 的 目标 类 ( 即 RubyCsv 类 )。 该 模块 还 
为 RubyCsv 类 添加 了 类 方法 。 其 中 ，acts_as_csv 是 唯一 的 类 方法 。 接 下 来 ，acts_as_csv 方 法 又 
打开 了 RubyCsv 类 ， 并 在 类 中 包含 了 所 有 实例 方法 。 如 此 这 般 ， 我 们 就 写 了 一 个 会 写 程 序 的 程序 。 

所 有 这 些 元 编程 技术 的 有 趣 之 处 在 于 ,程序 可 以 根据 它 应 用 时 的 状态 而 改变 ,ActiveRecord 
利用 元 编程 ,动态 浴 加 与 数据 库 中 的 列 有 相同 名 称 的 访问 筑 。 有 些 XML 框 以 如 bui1der， 可 人 允许 
用 户 通过 method_missing 方 法 定义 目 定 义 标签 ， 以 提供 更 加 美观 的 语法 。 当 代码 的 语法 变 得 更 
美观 ,阅读 代码 的 读者 也 就 不 必 在 语法 问题 上 大 伤 脑筋 , 从 而 能 更 好 地 理解 代码 本 里 表达 的 意图 。 
这 正 是 Ruby 的 威力 所 在 。 
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2.4.4 第 三 天 我 们 学 到 了 什么 


在 本 市 中 , 你 学 会 用 Ruby 定 义 自己 的 语法 , 以 及 动态 地 改变 类 , 这 两 种 编程 技术 都 可 以 归 到 
元 编程 当中 。 你 写 的 每 一 行 代码 都 会 有 两 类 读者 ， 一 类 是 电脑 ， 一 类 是 人 。 有 时 候 ， 想 创建 既 便 
于 编译 部 或 解释 顺 加 工 又 利于 人 类 理解 的 代码 并 不 容易 。 借 助 元 编程 的 威力 , 你 可 以 做 到 尽量 缩 
短 正 确 的 Ruby 语 法 与 日 党 用语 之 间 的 距离 。 

一 些 最 出 色 的 Ruby 框 架 ， 如 Bui1der 和 ActiveRecord， 都 会 为 了 改善 可 读 性 而 特别 依赖 元 
编程 。 在 本 市 中 , 利用 开放 类 技术 编写 了 一 个 鸭子 类 型 接口 , 为 String 对 象 和 ni1 提 供 了 blank? 
方法 ,从 而 大 大 减少 了 用 其 他 场 言 完成 类 似 任 务 可 能 出 现 的 大 量 杂 乱 无 草 的 代码 。 你 还 见 到 了 一 
段 多 次 开放 类 的 代码 。 利 用 method_missing 方 法 写 出 了 漂 腕 的 罗马 数字 代码 。 最 后 ， 及 用 模块 
定义 了 DSL， 又 用 它 解析 了 CSV 文 件 。 


























2.4.5 ”第 三 天 上 自习 


做 

修改 前 面 的 CSV 应 用 程序 , 使 它 可 以 用 each 方 法 返回 CsvRow 对 象 。 然 后 , 在 CsvRow 对 象 上 ， 
对 某 个 给 定 标 题 ， 用 method_missing 方 法 返回 标题 所 在 列 的 值 。 

比如 ， 对 于 包含 以 下 内 容 的 文件 : 

one, two 

lions, tigers 


API 可 以 像 下 面 这 样 操作 : 


CSV = RubyCsv.new 
csv.each {|row| puts row.one} 


这 会 打印 出 "1ions"。 
2.5 ” 趁 热 打铁 

在 本 章 中 ， 我 们 讨论 了 不 少 内 容 。 我 希望 你 能 明日 为 什么 将 Ruby 比 作 Mary Poppins。 在 几 十 
个 Ruby 会 议 上 做 过 发 言 后 ， 很 多 人 都 对 我 表示 ， 他 们 之 所 以 热爱 Ruby， 正 是 因为 它 能 齐 来 无 穷 
的 乐趣 。 对 一 个 C 家 族 语言 ( 包括 C++、C#、Java 等 ) 日 渐 泛 滥 的 行业 来 说 ，Ruby 犹 如 徐徐 吹 来 
的 一 阵 清 风 ， 为 人 们 础 来 了 些许 清谈 的 感觉 。 
2.5.1 核心 优势 

Ruby 的 纯 面 回 对 象 可 以 让 你 用 一 致 的 方式 来 处 理 对 象 。 鸭子 类 型 根据 对 象 可 提供 的 方法 ,而 


不 是 对 象 的 继承 层次 ,实现 了 更 切合 实际 的 多 态 设 计 。Ruby 的 模块 和 开放 类 , 使 程序 员 能 把 行为 
紧密 结合 到 博 法 上 ， 这 大 大 超越 了 类 中 定义 的 传统 方法 和 实例 变量 。 
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Ruby 作 为 脚本 语言 或 带 有 合理 扩展 需求 的 Web 开 发 语言 而 言 ， 可 以 说 是 相当 理想 的 。 它 的 生 
产 力 很 强 ， 但 其 中 某 些 提高 生产 力 的 特性 使 得 Ruby 难 以 编译 ， 在 性 能 上 也 有 所 损失 。 

1. 脚本 

Ruby 是 一 门 梦幻 般 的 脚本 语言 。Ruby 可 以 非常 出 色 地 完成 许多 任务 ， 例 如 编写 胶水 代码 
( glue code ) 合并 两 个 互 不 兼容 的 应 用 程序 ， 编 写 爬 虫 程序 抓 取 股 票 报 价 或 图 书 价格 的 网 页 ， 运 
行 本 地 编 详 环境 或 目 动 测试 等 。 

作为 一 门 大 部 分 主流 操作 系统 都 可 使 用 的 语言 , Ruby 是 一 个 不 错 的 脚本 环境 语言 。 在 基本 库 
之 外 ，Ruby 还 包含 了 各 种 各 样 的 库 ， 以 及 数 以 千 计 的 gem "或 预 打 包 搬 件 ， 它 们 可 用 在 加 载 CSV 
文件 、 处 理 XML、 操 作 瓜 层 互 联网 API 等 任务 当中 。 

2. Web 开 发 

Rails 现 已 成 为 有 史 以 来 最 成 功 的 Web 开 发 框 染 之 一 , 其 设计 理念 以 广为人知 的 模型 一 视图 一 
控制 妖 ( model-view-controller ) 范 型 为 基础 。 数 据 库 元 素 和 应 用 程序 元 系 都 有 很 多 命名 规范 ， 
此 不 必 进 行 任 何 配置 就 可 以 构建 出 典型 的 Rails 应 用 程序 , 而 且 , 该 框架 还 有 不 少 用 来 处 理 棘 手 的 
生产 问题 的 插件 : 

口 Rails 应 用 程序 的 态 构 总 是 保持 一 致 ， 并 且 早 已 为 人 所 部 知 ; 

口 Migration 处 理 数 据 库 schema 中 的 变化 ; 

口 几 个 可 减少 配置 代码 数量 的 规 克 都 有 丰富 文 档 ; 

口 有 众多 不 同 功 能 的 插件 可 供 选 择 。 

3. 市 场 投放 时 间 

说 到 Ruby 和 Rails 的 成 功 ， 我 认为 生产 力 是 非常 重要 的 因素 。2005 年 前 后 ， 随 便 在 旧金山 扔 
块 石 头 ， 肯 和 定 会 征 到 一 个 为 创业 公司 工作 ， 而 且 采 用 Rails 开 发 的 家 伙 。 甚 至 现 如 今 ，Ruby 在 这 
些 公司 中 依旧 硕果 累累 ,这 其 中 就 包括 我 自己 的 公司 。 优 美的 语法 加 上 编程 社区 、 工 具 、 各 种 插 
件 ， 这 些 因素 组 合 在 一 起 ， 使 Ruby 拥 有 极其 巨大 的 威力 。 利 用 各 种 各 样 的 Ruby gem， 你 可 以 找 
到 某 位 冲浪 者 的 邮政 编码 , 也 可 以 获得 方圆 80 公 里 内 所 有 邮政 编码 。 你 可 以 处 理 图 像 和 信用 卡 ， 
可 以 利用 Web 服 务 完成 任务 ， 还 可 以 在 多 种 编程 语言 间 通 信 。 

很 多 大 型 商业 网 站 都 使 用 了 Ruby 和 Ruby on Rails。Twitter 最 开始 就 是 用 Ruby 实 现 的 。 借 助 
Ruby 无 比 强 大 的 生产 力 ， 它 迅速 发 展 为 一 家 规模 庞大 的 网 站 。 之 后 ， 他 们 用 Scala 重 写 了 Twitter 
的 核心 。 这 告诉 我 们 两 件 事 : 第 一 ， 对 于 快速 开发 一 个 可 推 癌 市 场 的 合格 产品 ，Ruby 是 一 门 非常 
好 用 的 语言 ; 第 二 ， 从 某 种 程度 上 说 ，Ruby 在 可 扩展 性 上 有 所 局 限 。 

在 采用 分 布 式 事务 、 容 错 消 息 传 递 ( fail-safe messaging ) 和 国际 化 等 机 制 的 正规 大 型 企业 中 ， 
Ruby 的 作用 党 被 人 低估 ， 但 Ruby 有 能 力 做 好 上 述 所 有 事情 。 很 多 时 候 ， 我 们 应 根据 实际 情况 ， 
来 用 适当 的 应 用 框架 和 可 扩展 性 ,然而 现在 ,大 部 分 人 关注 的 是 足以 打造 下 一 个 eBay 的 可 扩展 性 ， 






























































Q9 打包 的 Ruby 应 用 程序 或 库 称 作 gem， 具 有 名 称 和 版 本 号 。 在 本 地 可 以 用 gem 命 令 管 理 gem 包 ， 这 包括 安装 、 绝 载 、 
查询 等 。 
@) 这 种 可 提供 地 理 信息 的 gem 很 多 ， 比 如 Geokit。 
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却 到 交付 软件 的 那 一 天 什么 都 拿 不 出 来 。 大 多 数 情况 下 , Ruby 部 会 充分 考虑 到 市 场 投放 时 间 的 压 
力 ， 而 这 种 压力 正 是 很 多 企业 要 面 对 的 。 


2.5.2 不足 之 处 


青 好 的 语言 也 不 会 对 所 有 应 用 都 表现 完美 。 Ruby 也 有 其 局 限 性 。 下面, 我 们 看 看 其 中 最 主要 
的 一 些 局 限 。 

1. 性 能 

Ruby 的 最 大 哗 点 就 是 性 能 。 没 错 ，Ruby 是 越 来 越 快 了 。 在 某 些 应 用 场景 中 ，1.9 版 其 至 比 过 
去 快 了 10 倍 之 多 。Evan Phoenix 写 的 新 虚拟 机 Rubinius 初 步 实 现 了 用 即时 编译 各 (just-in-time 
compiler ) 编译 Ruby 代 码 。 用 这 种 方法 观察 大 段 代 码 在 企业 中 应 用 的 模式 ， 以 判断 哪些 代码 可 能 
多 次 使 用 。 这 对 于 Ruby 的 运行 方式 来 说 相当 合适 ， 因 为 Ruby 语 法 提供 的 线索 通常 不 足以 完成 纺 
译 。 别 专 了 ， 类 的 定义 任何 时 间 都 可 能 改变 。 

Matz 也 十 分 清楚 ， 他 写 Ruby 是 为 了 改善 程序 员 的 体验 ， 而 不 是 优化 语言 的 性 能 。Ruby 正 是 
凭借 它 的 许多 特性 ( 比如 开放 类 、 了 鸭子 类 型 、method_missing 等 ), 击败 了 可 编译 并 由 此 提升 性 
能 的 语言 。 

2. 并 发 和 面向 对 象 编程 

面向 对 象 编程 有 一 个 重大 弱点 : 该 编程 模型 成 立 的 一 切 前 提 条 件 ， 都 建立 在 一 种 思想 ( 围绕 
状态 包 闭 一 系列 行为 ) 的 基础 之 上 ,但 通 第 ， 状 态 是 会 发 生 改 变 的 。 于 是 ， 程 序 中 存在 并 发 时 ， 
这 种 编程 策略 就 会 引发 严重 问题 。 最 好 的 情况 下 ，Ruby 会 产生 大 量 的 资源 苑 争 ; 最 坏 的 情况 下 ， 
面 问 对 象 语言 儿 乎 无 法 在 并 发 环境 下 调试 程序 ， 也 无 法 可 徘 地 测试 程序 。 在 我 写 这 本 书 的 时 候 ， 
Rails 团 队 刚 开始 解决 如 何 有 效 地 管理 并 发 的 问题 。 

3. 类 型 安全 

我 是 鸭子 类 型 的 坚定 文 持 者 。 在 这 种 类 型 策略 下 , 你 通常 可 用 简洁 而 清晰 的 代码 对 事务 进行 
完美 地 抽象 。 但 使 用 鸭子 类 型 也 是 有 代价 的 。 毅 态 类 型 可 提供 一 整套 工具 , 可 以 更 轻松 地 构造 语 
法 树 ， 也 因此 能 实现 各 种 IDE ( 集成 开发 环境 ) 对 Ruby 来 说 ， 实 现 IDE 就 困难 得 多 ， 而 且 百 到 现 
在 ， 也 没 几 个 人 真正 用 IDE 开 发 Ruby 程 序 。 "我 多 次 从 心底 衰 叹 Ruby 没 有 一 个 IDE 形 式 的 调试 器 。 
我 想 ， 有 类 似 体验 的 人 不 会 只 有 我 一 个 。 


















































2.5.3 ”最 后 思考 


综 上 所 述 , Ruby 的 核心 优势 是 它 的 霹 法 和 灵活 性 , 根本 的 不 足 之 处 大 概 是 性 能 , 尽管 应 用 于 
很 多 场景 时 , 它 的 性 能 和 都 还 过 得 去 。 总 之 , 在 面 问 对 象 开 发 中 ，Ruby 是 一 门 优 秀 的 语言 。 对 于 合 
适 的 应 用 , Ruby 往 轻 就 熟 。 像 其 他 工具 一 样 , 只 要 用 它 解 决 一 组 合适 的 问题 , 你 就 几乎 不 会 失望 。 
还 有 ， 使 用 它 的 过 程 中 最 好 别 闭 眼 ， 不 然 你 就 会 错过 一 个 个 精彩 的 小 魔法 。 


























GD 这 里 的 表述 信息 有 些 过 时 了 ， 现 在 有 很 多 非常 好 的 IDE ( 如 Jet Brain 的 Ruby Mine )，Eclipse 和 Net beans 也 都 有 对 应 
的 插件 。 
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问题 不 是 “我 们 要 和 干 点 儿 什么 ”而 是 “我 们 有 什么 不 能 干 ”。 





Ferris Bueller 


先 来 认识 一 下 Io。 和 Ruby 一 样 ，Io 慌 得 变通 , 行事 不 拘 小 方 。 他 血气 方刚 、 聪 明 过 人 , 想 了 
解 他 不 难 ， 想 猿 透 他 要 做 什么 可 就 难 了 ,活脱 一 个 Ferris Bueller 。 如 果 你 愿意 享受 喧嚣 热闹 的 狂 
欢 ， 跟 着 Io 逛 和 逛 绝对 没 错 ， 他 什么 都 会 带 你 尝试 一 遍 。 和 他 在 一 起 ， 你 可 能 会 有 最 美妙 刺激 的 体 
验 ， 但 你 老 爸 的 车 也 可 能 变 成 一 堆 废 铀 烂 铁 。 不 过 , 无 论 发 生 什 么 ， 你 都 决 不 会 无 聊 。 正 如 本 页 
最 上 方 Ferris 所 说 ， 没 那么 多 清 规 戒 律 束 手 束 脚 。 


3.1 lo 简介 


2002 年 ，Steve Dekorte 发 明了 Io 卉 言 ， 这 名字 要 写成 大 写 的 I 后 接 一 个 小 写 的 0o。 如 同 Lua、 
JavaScript 一 样 ，Io 是 一 种 原型 语言 ， 这 意味 者 每 个 对 象 都 是 男 一 个 对 象 的 复制 品 。 

Steve 一 开始 只 想 写 个 程序 练 练 手 ， 以 便 弄 清楚 解释 需 的 工作 方式 。 没 想到 Io 问 世 之 后 ， 葛 成 
为 业余 爱好 者 们 推 尝 的 语言 ， 并 且 发 展 到 今天 , 依旧 保持 着 小 巧 的 特点 。 一 刻 钟 学 会 语法 ， 半 小 
时 学 会 基本 原理 ， 这 些 都 不 在 话 下 。 然 而 ， 到 了 学 习 Io 库 的 阶段 ， 花 的 时 间 就 要 多 一 些 了 ， 因 为 
这 门 语 言 的 复杂 性 和 丰富 性 ， 统 统 来 自 于 库 的 设计 。 

如 今 的 大 多 数 Io 社 区 ， 都 致力 于 把 Io 作 为 大 有 微型 虚拟 机 和 丰富 并 发 特性 的 可 节 入 语言 来 推 
广 。Io 的 核心 优势 是 拥有 大 量 可 定制 语法 和 函数 ， 以 及 强 有 力 的 并 发 模型 。 它 的 简单 语法 和 原型 
编程 模型 都 值得 我 们 重点 关注 。 我 发 现 : 在 了 解 Io 之 后 , 我 对 JavaScript 运 行 机 制 的 理解 也 变 得 透 
彻 许 多 。 




















GO Ferris Buellers Day Of，DVD 版 ， 导演 : John Hughes (1986 年 )。 发 行商 : 加 利 福 尼 亚 州 好 莱 坞 派 拉 蒙 影 业 公司 
(1999 年 )。( 译 者 注 : 这 部 电影 中 译名 为 《春天 不 是 读书 天 》， 是 一 部 轻松 底 谐 、 带 有 有 反 教 育 色 彩 的 喜剧 片 。 它 讲 
述 一 位 十 七 岁 高 中 生 Ferris Bueller， 同 女友 及 好 友 一 起 逃学 ， 芍 着 好 友 父 亲 珍 藏 的 法 拉 利 GT 250 跑 车 ， 前 往 附 近 
的 芝加哥 市 畅快 淋漓 地 游玩 了 一 整 天 ， 晚 上 又 准时 回 家 、 瞒 过 父母 的 故事 。 该 影片 处 处 传达 了 一 种 和 目 由 精神 ,， 尤 
其 影片 结尾 主角 所 说 的 “世界 如 此 精彩 ， 如 采 不 懂得 驻足 欣赏 ， 那 就 会 错过 很 多 风景 ”更 是 点 出 该 片 主 旨 所 在 。) 
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3.2 第 一 天 : 逃 尝 吧 ， 轻 松 一 下 

初 见 TIo 与 初 见 其 他 语言 并 无 不 同 , 你 也 要 花 上 点 时 间 不 断 襄 打 键 盘 , 彼此 之 间 才 会 渐渐 丈 悉 。 
当然 ， 如 果 你 们 没有 在 上 历史 课 前 ， 站 在 教室 旁边 的 走廊 上 ， 进 行 一 番 令 人 窒息 的 交谈 "， 相 互 
了 解 起 来 会 容易 许多 。 这 就 和 Io 一 起 逃学 ， 去 做 些 真 正 激动 人 心 的 事情 吧 ! 

名 字 有 时 高 有 欺骗 性 ， 但 从 Io 这 个 名 字 中 ， 我们 还 是 能 看 出 不 少 东 西 。 一 方面 ， 这 个 名 字 起 
得 有 欠 考 虑 ( 试 过 用 Google 搜 索 “Io” 吗 ? )“; 男 一 方面 ， 这 名 字 也 处 处 闪 焰 着 智慧 光芒 。 它 
只 有 两 个 字母 ， 还 都 是 元 音 。 而 Io 语 法 也 正如 其 名 ， 既 众 单 又 直接 。Io 语 法 只 不 过 是 把 消息 全 部 
串联 起 来 ， 每 条 消息 都 会 返回 一 个 对 象 ， 每 条 消息 也 都 涡 有 置 于 括号 内 的 可 选 参 数 。 在 Io 中 , 万 
事 万 物 缘 为 消息 ， 且 每 条 消息 都 会 返回 另 一 接收 消息 的 对 象 。Io 这 门 语言 没有 关键 字 ， 有 的 只 是 
少量 在 行为 上 接近 于 关键 字 的 字符 。 

用 Io 的 时 候 ， 你 不 必 既 操心 类 又 操心 对 象 。 你 只 需 和 对 象 打 交道 ， 必 要 时 把 对 象 复制 一 下 就 
行 。 这 些 被 复制 的 对 象 就 叫做 原型 。Io 是 我 们 介绍 的 第 一 门 、 也 是 仪 有 的 一 门 基于 原型 的 语言 。 
在 原型 语言 中 ， 每 个 对 象 都 不 是 类 的 复制 品 ， 而 是 一 个 实 实 在 在 的 对 象 。 此 外 ，Io 还 能 溃 你 无 限 
接近 面 回 对 象 的 Lisp。 现 在 就 对 Io 能 否 持续 发 挥 影响 力 下 上 断言 尚 为 时 过 早 ， 但 价 明 的 语法 无 疑 是 
其 成 为 利 硕 的 巨大 优势 。 你 将 在 第 三 天 看 到 Io 构 思 精 妙 的 并 发 库 ， 以 及 强大 而 优雅 的 消息 语义 。 
反射 在 Io 当 中 也 是 无 所 不 在 。 


3.2.1 开场 日 


下 面 请 打开 解释 大 ， 开始 这 场 狂欢 。 在 http://iolanguage.com 可 找到 To 解释 大 ,下 载 并 安装 人 它 。 
键入 io 可 打开 解释 锅 ， 然 后 输入 经 典 的 “Hello, World” 程 序 : 


Io> "Hi ho，Io” print 
HT ho, Io==> H1 ho, Io 


你 完全 能 看 出 这 段 代 码 是 怎么 做 到 这 点 的 。 你 发 送 卫 print 消息 给 字符 日"Hi ho，Io", 接 
收 者 在 左边 ， 消 息 在 右边 。 这 里 没有 任何 语法 糖 ， 你 不 过 是 把 消息 发 送 给 对 象 而 已 。 

在 Ruby 中 ， 你 可 对 某 个 类 调用 new 创 建 一 个 新 对 象 。 通 过 定义 类 ， 可 以 创建 一 个 新 的 对 象 种 
类 。 而 Io 不 区 分 类 和 对 象 。 你 可 通过 复制 现 有 对 象 创 建新 对 象 。 现 有 对 象 就 是 原型 : 


batate$ 10 
Io 20090105 







































































Io> Vehicle := Object clone 
==> Vehicle_0x1003b61f8 : 
type = "Vehicle" 


0bject 是 根 对 象 。 我 们 发 送 clone 消 息 过 去 ， 它 会 返回 一 个 新 对 象 。 我 们 把 这 个 返回 的 新 对 
象 赋值 给 Vehicle。 这 里 的 Vehicle 不 是 类 ， 也 不 是 用 来 创建 对 象 的 模板 ， 它 只 是 个 对 象 ， 是 一 








Q 此 处 是 借 《 春 天 不 是 读书 天 》 之 中 的 一 幕 场 景 作为 比喻 。 
@) 你 可 以 再 试 试用 Google 搜 索 “Io language”。 一 一 原 书 注 
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个 基于 0bject 原 型 的 对 象 。 我 们 可 以 继续 用 Vehicle 做 一 些 交 互 : 


Io> Vehicle description := "Something to take you places" 
==> Something to take you places 


对 象 还 市 有 槽 。 你 可 以 把 一 组 槽 想象 成 散 列 表 , 通过 键 就 能 引用 到 任何 一 个 槽 。 你 既 可 以 用 := 
给 槽 赋值 ， 这 种 情况 下 ， 当 槽 尚 不 存在 时 ，Io 会 创建 出 一 个 槽 ; 也 可 以 用 = 给 槽 赋值 ， 这 种 情况 
下 ， 当 横 不 存在 时 ，Io 会 抛 出 一 个 异常 。 我 们 刚才 创建 了 一 个 名 为 description 的 槽 。 


Io> Vehicle description = "Something to take you far away”™ 
==> Something to take you far away 
Io> Vehicle nonexistingSlot = "This won’'t work.”" 


3 


Exception: Slot nonexistingSlot not found. 
Must define slot using := operator before updating. 


message ‘updateSlot' 1n ‘Command Line' on line 1 
癌 Vehicle 对 象 发 送 权 的 名 字 ， 可 以 获取 槽 中 的 值 : 


Io> Vehicle description 
==> Something to take you far away 


其 实 , 对象 在 概念 上 要 比 一 组 槽 更 丰 调 一 些 。 我 们 可 以 像 这 样 看 到 Vehicle 上 所 有 模 的 名 字 : 


Io> Vehicle slotNames 
==> list("type", "description") 


我 们 回 Vehi cle 对 象 发 送 了 sl1otNames 方 法 ,并 返回 了 一 个 槽 名 列表 。 可 以 看 到 ，Vehicle 对 象 
有 两 个 构 。 你 已 经 知道 有 description 槽 ， 但 还 有 一 个 权 叫 做 type。 任 何 对 象 都 有 type 这 个 槽 : 


Io> Vehicle type 
==> Vehicle 
Io> Object type 
==» Object 


再 过 几 小 节 ， 我们 就 会 介绍 类 型 (type )。 现 在 ， 我 们 和 暂且 认为 type 槽 代表 你 当前 处 理 对 象 
的 种 类 。 不 过 一 定 要 记 住 ， 该 类 型 是 对 象 而 不 是 类 。 下 面 是 迄今 为 止 已 学 到 的 内 容 : 

口 通过 复制 其 他 对 象 来 制造 对 象 ; 

口 对 象 是 一 组 槽 ; 

口 通过 发 送 消息 来 获取 覃 的 值 。 

你 已 经 见识 到 了 TIo 的 简单 有 趣 之 处 ， 学 会 它们 这 不 困难 。 然 而 ， 这 些 仅 仅 是 Io 的 皮毛 。 接 下 
来 ,我 们 将 学 习 继 承 。 


3.2.2” 对象、 原型 和 继承 


在 本 市 中 ,我 们 要 和 继承 打交道 ,话说 一 辆 小 汽车 (car ), 它 当然 也 是 一 种 交通 工具 ( vehicle )。 
想 想 看 ， 我 们 该 如 何 构造 一 个 法 拉 利 赛车 ( ferrari ) 对 象 ， 而 且 它 还 是 小 汽车 的 实例 ?如 果 是 面 
癌 对 和 象 语 言 ， 你 可 以 像 图 3-1 那 样 设计 。 
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法 拉 利 





图 3-1 某 种 面 回 对 象 设计 


那么 ,在 原型 语言 中 ,我们 该 如 何 解决 这 问题 ?” 除了 在 上 一 小 节 中 创建 的 那些 对 象 之 外 , 我 
们 还 需要 另外 一 些 对 象 才 行 。 首 先 ， 创 建 下 面 这 个 对 象 : 


Io> Car := Vehicle clone 
==> (Car Ox100473938: 
type = 


Io> Car slotNames 
==> list("type'") 
Io> Car type 
SEACRT 


在 Io 语 言 中 , 我 们 通过 把 clone 消 息 发 送 给 Vehicle 原型 , 创建 一 个 名 为 Car 的 新 对 象 。 接 着 ， 
我 们 把 description 发 送 给 Car: 


Io> Car description 
==> Something to take you far away 


Car 没 有 description 槽 ， 因 此 Io 会 把 description 消 息 转发 给 Car 的 原型 Vehicle， 并 在 
Vehicle 中 找到 这 个 槽 。 这 机 制 十 分 简单 ， 但 却 非常 强大 。 然 后 ， 我 们 再 来 创建 另 一 辆 小 汽车 。 
不 过 这 次 ， 我们 把 它 赋值 给 ferrari: 


Io> ferrari := Car clone 
==> Car Ox1004f43d0: 





Io> ferrari slotNames 
==> 11st() 


这 下 连 type 槽 都 没 了 。 这 是 因为 ， 依照 Io 的 惯例 ， 其 类 型 应 以 大 写字 母 开头。 如 果 现 在 
0 Oe 


Io> ferrari type 
==> Car 
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这 就 是 Io 对 象 模 型 的 工作 方式 。 对 象 不 过 是 枝 的 容器 而 已 。 发 送 槽 名 给 对 象 可 获得 该 槽 。 如 
果 该 酸 不 存在 ， 则 调用 父 对 象 的 梭 。 你 要 理解 的 全 部 内 容 就 是 这 些 。 这 里 没有 类 ， 也 没有 元 类 。 
你 手 里 也 不 会 有 接口 或 模块 ， 有 的 只 是 对 象 ， 如 图 3-2 所 示 。 








原型 NS 





图 3-2 Io 中 的 继承 


Io 的 类 型 是 一 种 非常 好 用 的 机 制 。 从 惯用 法 的 角度 说 ， 以 大 写字 母 开 头 的 对 象 是 类 型 ， 因 此 
Io 会 对 它 设 置 type 槽 。 而 类 型 的 复制 品 右 以 小 写字 母 开 头 ， 则 会 调用 它 父 对 象 的 type 模 。 关 型 
仅仅 是 帮助 Io 程 序 员 更 好 地 组 织 代码 的 工具 。 

如 果 想 让 法 拉 利 赛车 也 成 为 类 型 ， 你 可 以 用 大 写字 母 开 头 ， 像 下 面 这 样 : 

Io> Ferrari := Car clone 


==> Ferrari Ox9d085c8: 
type = “Ferrar1 











Io> Ferrari type 
==> Ferrari 


Io> Ferrari slotNames 
==> list("type") 

Io> ferrari slotNames 
==> 11st() 
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注意 ， 这 里 ferrari 没 有 type 槽 ， 而 Ferrari 却 有 。 我 们 采用 简明 的 编程 惯例 而 不 是 完整 的 
语言 特性 来 区 分 类 型 和 实例 。 在 其 他 方面 ， 它 们 的 行为 是 相同 的 。 

在 Ruby 和 Java 中 ， 类 是 用 来 创建 对 象 的 模板 。bruce = Person.new 这 条 语句 从 Person 类 创 
建 一 个 新 的 Person 对 象 。bruce 和 Person 是 完全 不 同 的 两 个 实体 , 一 个 是 对 象 , 一 个 是 类 。 在 Io 
中 却 不 是 这 样 。bruce := Person clone 这 条 语句 从 Person 原 型 创建 一 个 名 为 bruce 的 复制 品 。 
bruce 和 Person 都 是 对 象 。Person 还 是 类 型 ,因为 它 有 type 楷 。 而 在 其 他 方面 ,Person 和 bruce 
完全 相同 。 下 面 ， 我 们 来 看 看 具体 行为 。 











3.2.3 方法 
在 lo 中 ， 你 可 以 轻松 地 创建 方法 ， 就 像 下 面 这 样 : 


Io> method( So，you' ve come for an argument. 
==> method ( 
"So, you've come for an argument.” println 





printiln) 


) 
方法 也 是 对 象 ， 就 像 所 有 其 他 类 型 的 对 象 一 样 。 你 可 以 获取 它 的 类 型 . 


Io> method() type 





==> Block 

既然 方法 是 对 象 ， 我 们 就 可 以 把 它 赋 值 给 一 个 槽 : 
Io> Car drive := method("Vroom™” printlin) 

==> method ( 


"Vroom™ printiln 
) 
如 条 某 个 槽 是 方法 ， 调 用 这 个 覃 会 调用 该 方法 : 
Io> ferrari drive 


Vroom 
==> Vroonm 


信 不 信 由 你 ， 你 现在 已 经 明白 了 Io 的 核心 组 织 原则 。 回 想 一 下 ， 你 知道 Io 的 基本 语法 。 你 会 
定义 类 型 和 对 象 。 通 过 把 内 容 赋 值 给 对 象 的 槽 的 方式 ， 你 会 把 数据 和 行为 添加 到 对 象 上 。 至 于 其 
他 内 容 ， 就 需要 去 人 研究 库 了 。 

我 们 再 来 多 学 习 一 点 内 容 。 你 可 以 获取 槽 中 的 内 容 , 无 论 它 是 变量 还 是 方法 , 就 像 下 面 这 样 : 

Io> ferrar1l getqSlot(C drive ) 


==> method ( 
"Vroom™ printiln 











) 
如 果 该 权 不 存在 ，getS1lot 会 提供 父 对 象 的 模 : 


Io> ferrari getSlot("type'") 
==% Car 


你 可 以 获取 对 和 象 的 原型 : 
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Io> ferrari proto 

==> (Car Ox100473938: 
drive 
type 


method(...) 
ar 


Io> Car proto 
==> Vehicle_0x1003b61f8 : 
description = "Something to take you far away" 
type = "Vehicle" 
这 两 个 就 是 分 别 用 来 复制 ferrari 和 Car 的 原型 ， 而 且 出 于 方便 考虑 ， 这 里 还 显示 了 它们 的 
目 定 义 醒 。 
Lobby 是 主 命名 空间 ， 包 含 了 所 有 的 已 命名 对 象 。 我 们 刚才 在 命令 行 中 执行 的 所 有 赋值 ， 以 
及 为 外 几 个 对 象 ， 全 部 都 在 Lobby 当 中 ， 如 下 所 示 : 














lo> Lobby 

==> Object Ox1002184e0: 
Car = Car_Ox100473938 
Lobby = Object Ox1002184e0 
Protos = Object Ox1002184e0 
Vehicle = Vehicle_0x1003b61f8 
exit = method(...) 
ferrari = Car_Ox1004f43d0 
forward = method(...) 


你 可 以 看 到 exit 的 实现 、forward、Protos 还 有 我 们 定义 的 其 他 东西 。 

原型 编程 范 型 看 来 十 分 清晰 ， 下 面 就 是 这 种 范 型 的 几 条 基本 原则 : 

口 所 有 事物 都 是 对 象 ; 

口 所 有 与 对 象 的 交互 都 是 消息 ; 

口 你 要 做 的 不 是 实例 化 类 ， 而 是 复制 那些 叫做 原型 的 对 象 

口 对 象 会 记 住 它 的 原型 ; 

口 对 象 有 村 ; 

口 槽 包含 对 象 〈 包 括 方 法 对 象 ); 

口 消息 返回 槽 中 的 值 ， 或 调用 梭 中 的 方法 ; 

口 如 末 对 象 无 法 啊 应 某 消息 ， 则 它 会 把 该 消息 发 送 给 目 己 的 原型 。 

差不多 就 是 这 些 。 你 既 可 以 看 见 、 也 可 以 改变 任何 模 或 对 象 , 所 以 能 够 进行 一 些 相 当 复 杂 的 
元 编程 。 不 过 ， 你 首先 必须 理解 更 高 级 的 构建 元 素 一 一 集合 。 


3.2.4 列表 和 映射 


Io 包 含 了 几 种 类 型 的 集合 ,列表 ( list ) 是 任意 类 型 对 象 的 有 序 集合 , 所 有 列表 的 原型 都 是 List 
对 象 。 而 Map 对 象 是 键 值 对 的 原型 ， 称 为 映射 (map )， 如 同 Ruby 的 散 列 表 一 样 。 我 们 可 以 像 下 面 
这 样 创建 列表 : 
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Io> toDos := li1stC find my car™”, "find Continuum Transfunctioner ) 
==> list("find my car”, "find Continuum Transfunctioner") 


Io> toDos size 
==> 2 


Io> toDos append("Find a present") 
==> list("find my car", "find Continuum Transfunctioner”", "Find a present") 


Io 在 表示 列表 时 有 一 种 快捷 方式 : 由 0bject 对 象 提供 的 11st 方 法 。 它 能 把 传人 方法 的 参数 
包装 起 来 以 形成 列表 。 使 用 1ist 方 法 ， 我 们 可 以 像 下 面 这 样 方便 地 创建 列表 : 


Io> list(1, 2, 3, 4) 
= 1St(tl 25304) 


如 采 想 对 列表 进行 数学 运算 ， 或 把 列表 用 作 其 他 数据 类 型 ( 如 栈 ) 处 理 ，List 对 象 也 提供 
了 各 种 简便 方法 : 

Io> 1ist(1，2，3，4) average 

三 三 > 六 2 5 











Io> 1ist(l1, 2, 3, 4) sum 
==> 10 


Io> 1ist(l1, 2, 3) at(1) 
> 2 


Io> list(1, 2, 3) append(4) 
==> 11ist(1, 2, 3, 4) 


Io> 1ist(1, 2, 3) pop 
==> 3 


Io> 1ist(1, 2, 3) prepend (0) 
==> 1ist(0, 1, 2, 3) 


Io> 1ist() 1isEmpty 
==> true 


Io 的 另 一 种 主要 集合 是 Map 对 象 。Io 的 映射 就 像 Ruby 的 散 列表 。 由 于 映射 没有 语法 糖 ， 你 必 
须 用 AP! 操 作 它 ， 就 像 下 面 这 样 : 


Io> elvis := Map clone 
==> Map_Ox115f580: 








Io> elvis atPut("home”, "Graceland") 
==> Map_Ox115f580: 


Io> elvis at("home") 
==> Graceland 
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Io> elvis atPut("style”, "rock and roll1") 
==> Map_Ox115f580: 


Io> elvis asObject 

==> Object Oxllc1ld90: 
home = "Graceland" 
style = "rock and roll" 


Io> elvis asList 
==> list(list("style”, "rock and roll"), list("home", "Graceland")) 


Io> elvis keys 
==> list("style”", "home") 


Io> elvis size 
==> 2 


仔细 琢 诺 一 下 ,你 会 发 现 散 列表 的 结构 和 Io 对 象 很 像 一 一 散 列 表 的 键 就 是 一 个 个 郑 定 了 值 的 
槽 。 因 此 ， 像 Io 映 射 那 样 把 这 些 槽 的 组 合 方便 快捷 地 转化 为 对 象 就 非常 有 用 。 

既然 知道 了 这 些 基 本 集合 ， 你 当然 想 用 它们 做 点 什么 。 这 少不了 要 介绍 Io 的 控制 结构 。 但 作 
为 控制 结构 的 基础 ， 必 须 先 介绍 一 下 布尔 值 。 





3.2.5 true、false、ni1 以 及 单 例 
Io 的 条 件 语句 和 其 他 面向 对 象 语言 非常 相似 。 下 面 给 出 了 一 些 条 件 语 句 : 


Io> 4 < ? 

==> true 

Io> 4 <= 3 

==> false 

Io> true and false 
==> false 

Io> true and true 
==> true 

Io> true or true 
==> true 

Io> true or false 
==> true 

JIo>4<5 and6>7 
==> false 

Io> true and 6 

==> true 

Io> true and 0 

==> true 


这 些 都 没什么 难 的 。 不 过 要 注意 : 和 Ruby 一 样 0 是 true， 而 不 像 C 语 言 那 样 是 false。 那 么 ， 
true 又 是 什么 ? 





@) 即 上 面 代码 的 as0bject 方 法 。 
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1o> true proto 
==> Object Ox200490: 


Object_() 
Object_!=() 


true clone 
true 

false clone 
false 

nil clone 
==> nl | 


这 可 就 有 意思 了 1! true、false 和 ni1 都 是 单 例 ( 
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singleton ) “， 对 它们 进行 复制 ， 返 回 的 只 


是 单 例 对 象 的 值 。 想 做 到 这 一 点 并 不 难 ， 你 可 以 像 下 面 这 样 创建 日 己 的 单 例 : 


Io> Highlander := Object clone 
==> Highlander Ox378920: 
type = "Highlander" 


Io> Highlander clone := Highlander 

==> Highlander Ox378920: 
clone Highliander_O0x378920 
type = "Highlander" 





我 们 只 不 过 重 定义 了 clone 方 法 , 让 它 返回 High1ander 对 象 自 身 ， 而 不 是 像 往常 那样 , 让 请 


求 沿 着 对 象 树 癌 上 传递 ， 最 终 到 达 0bject 对 象 。 现 在 
如 下 所 示 : 


Io> Highlander clone 
Highlander_O0x378920: 
clone Highliander_O0x378920 
type = "Highlander" 
Io> fred := Highlander clone 
Highlander_O0x378920: 


三 三 水 


三 三 这 


clone = Highlander_Ox378920 
type = "Highlander" 

Io> mike := Highlander clone 

==> Highlander Ox378920: 
clone = Highliander_Ox378920 
type = "Highlander" 

Io> fred == mike 

= true 


中 单 例 模 式 是 一 种 很 常见 的 软件 设计 模式 ， 它 保证 某 个 类 型 只 


统 仅仅 需要 一 个 全 局 对 象 ， 而 不 是 每 次 都 返回 一 个 新 的 对 象 实例 。 该 模式 可 用 在 界面 、 数 据 库 、 服 务 需 配置 等 诸 


多 方面 。 


， 当 你 使 用 Highlander 对 象 时 ， 它 的 行 ; 





有 一 个 对 象 实例 存在 。 这 样 做 的 目的 是 ， 很 多 时 候 系 
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这 里 我 们 看 到 ，Highlander 对 象 的 两 个 复制 品 是 相等 的 。 但 如 果 不 用 单 例 ， 这 种 情况 一 般 





Io> one := Object clone 
==> Object Ox356d00: 


Io> two := Object clone 
==> 0bject_0Xx31eb60: 


Io> one == two 
==> false 


这 样 ， 就 可 以 做 到 仪 有 一 个 Highlander 对 和 象 。 虽 然 ，Io 有 时 会 给 你 设 下 一 些 陶 阱 ， 但 对 于 
单 例 而 言 ，Io 的 解决 方法 昌 有 些 出 人 意 表 ， 却 仍 不 失 为 一 种 向 明 优雅 的 方法 。 在 这 一 小 节 当 中 ， 
我 们 经 历 了 大 量 信息 的 狂 彼 滥 炸 , 然而 , 我们 也 充分 明白 了 如 何 去 完 成 一 些 基本 任务 ， 比 如 改变 
对 象 的 clone 方 法 以 实现 单 例 。 

尽管 如 此 ， 你 仍 要 多 加 小 心 。 不 管 对 Io 是 爱 是 恨 ， 你 都 无 法 否认 ， 它 是 一 门 有 趣 的 声言 。 和 
Ruby 一 样 ，Io 也 能 让 人 爱 恨 交加 。 你 几乎 可 以 改变 任意 对 象 上 的 任意 一 个 槽 ， 甚 至 那些 定义 这 门 
语言 的 对 象 也 概 更 能 外 。 比 如 下 面 这 行 代 码 ， 你 可 能 就 不 会 有 随便 答 试 的 意愿 : 

Object clone := “hosed - 


因为 你 覆盖 了 0bject 上 的 clone 方 法 ， 所 以 你 从 此 无 法 再 创建 对 象 了 。 而 且 ,， 这 种 情况 无 法 















































修复 ， 你 只 有 终止 进程 这 条 路 可 走 , 但 同时 ， 你 也 可 以 用 它 获得 一 些 今 人 神 驰 目 胶 的 行为 。 既 然 
你 完全 掌握 运算 符 和 组 成 对 象 的 各 个 槽 ， 实 现 领域 特定 语言 (domain-specific language ) 只 需要 
窒 窒 数 行 简短 上 且 漂 亮 的 代码 就 可 以 了 。 在 你 重 温 今天 所 学 的 知识 之 前 ,我 们 先 来 聆听 Io 发 明 者 的 
真知 灼 见 。 


3.2.6 ” ”Steve Dekorte 访 谈 录 


Steve Dekorte 是 旧金山 区 的 一 名 独立 咨询 师 。 他 于 2002 年 发 明了 Io。 我 有 地 就 他 创建 Io 的 经 
验 体会 进行 了 采访 。 

Bruce: 你 为 什么 要 开发 10? 

Steve: 2002 年 ， 我 朋友 Dru Nelson 发 明了 一 门 叫做 Cel ( 受 Self 语 言 " 局 发 ) 的 语言 ， 要 我 们 
对 它 的 实现 提 一 些 反 馈 意见 。 我 觉得 我 对 这 门 语 言 的 运行 机 制 不 怎么 熟悉 , 提 不 出 什么 有 价值 的 
意见 ， 于 是 我 着 手写 了 一 门 小 巧 的 语言 ， 以 便 更 好 地 理解 Cel 的 各 种 机 制 。 这 门 小 巧 的 语言 发 展 
成 了 Io。 

Bruce: 你 最 钟 受 它 哪 一 点 呢 ? 

Steve: 我 钟爱 它 简洁 一 致 的 语法 和 语义 ， 这 有 助 于 理解 代码 做 了 些 什么 。 你 可 以 迅速 学 会 





Sr 





Q) Self 语 言 也 是 一 门 基于 原型 的 语言 。 它 由 David Ungar 和 Randall Smith 于 1986 年 在 施乐 帕 洛 阿尔 托 人 研究 中 心 ( Xerox 
PARC ) 工作 时 设计 出 来 , 并 在 一 年 后 两 人 去 斯 坦 福 大 学 工作 时 实现 了 首 个 编译 器 。Self 语 言 影响 了 后 来 的 不 少 语 


hk 


言 ， 包 括 JavaScript、Io、Cel、Lisaac 等 :。 
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这 门 语 言 的 基础 。 我 本 人 的 记性 不 太 好 ， 经 常 忘 记 C 语 言 的 语法 和 那些 古怪 的 语义 规则 ， 因 此 不 
得 不 去 查阅 它们 。 ( 编者 按 : Steve 用 C 语 言 实现 了 Io。 ) 而 我 在 使 用 [0 的 时 候 ， 就 不 必 老 慷 记 着 
查阅 这 种 事 了 。 

比如 说 ， 你 只 需 看 着 代码 ( 如 people select(age > 20) map(address) println ) ， 就 
能 较为 清楚 地 了 解 代 码 做 了 些 什么 。 它 先是 根据 年 龄 筛选 出 人 的 列表 ， 再 获得 他 们 的 地 址 ， 了 最 后 
把 地 址 打印 出 来 。 

如 果 充 分 简化 语义 ， 它 就 会 更 具 灵 活性 。 你 可 以 就 此 创作 一 些 实现 这 门 语 言 时 尚未 定义 的 东 
西 。 我 想 举 个 例子 说 明 这 点 ,电子 游戏 的 解 述 游戏 预 设 了 解 题 方 法 , 但 也 有 很 多 游戏 没 预 设 什么 ， 
而 是 开放 式 结 局 ,那些 结局 开放 的 游戏 更 好 玩 些 , 因为 你 可 以 去 做 游戏 设计 者 从 未 想到 过 的 事情 。 
Io 也 同样 如 此 。 

有 时 ， 其 他 语言 会 开辟 一 些 语 法 捷径 ， 这 产 
你 的 脑子 里 必须 有 相应 的 语法 转换 器 ,语言 越 复 
重 ， 你 的 工作 也 就 越 重 。 

Bruce: Io 有 哪些 局 限 ? 

Steve: Io 的 灵活 性 可 能 会 让 它 面 对 很 多 和 常见 用 途 时 速度 较 慢 。 不 过 ，Io 在 某 些 方面 也 有 速度 
优势 [如 : 协 程 (coroutine ) 、 异 步 套 接 字 、SIMD7 支 持 等 ]， 这 也 使 得 Io 相 比 于 那些 采用 传统 线 
程 (每 个 套 接 字 并 发 或 非 SIMD 向 量 运 算 时 产生 ) 编写 的 程序 要 快 得 多 ,即便 这 程序 是 用 C 语 言 纺 
写 的 ， 也 同样 如 此 。 

Io 较 少 的 语法 会 使 快速 检查 代码 变 得 更 加 困难 ， 对 这 一 点 ， 我 也 颇 有 微 词 。 然 而 ， 我 用 Lisp 
也 发 现 了 同样 问题 ， 因 此 这 也 是 可 以 理解 的 。 额 外 的 语法 的 确 有 利于 速 读 代 码 。 不过， 新 用 户 有 
时 一 开始 会 抱怨 Io 的 语法 实在 太 少 ， 但 在 大 多 数 情 况 下 ， 他 们 都 会 渐渐 喜欢 上 这 一 点 。 

Bruce: 在 实际 产品 中 ， 你 见 过 的 最 特别 的 Io 应 用 是 什么 ? 

Steve: 这 些 年 来 ， 我 听 说 过 各 种 各 样 关 于 Io 的 传闻 ， 比 如 用 在 卫星 上 ， 用 作 路 由 配置 语言 ， 
还 用 作 电 子 游 戏 的 脚本 语言 。 皮 克 斯 动画 公司 也 用 Io， 他 们 还 写 了 一 条 关于 Io 的 博客 文章 。 

第 一 天 的 学 习 真 是 忙碌 ， 现 在 该 休息 一 会 儿 了 。 你 可 以 暂时 停 下 脚步 ， 把 已 学 到 的 内 容 实践 
= 下 


生 了 额外 的 转换 规则 。 当 你 用 某 门 语言 编程 时 ， 
杂 ， 脑 子 里 的 转换 器 就 会 越 多 ， 转 换 器 的 工作 越 


3.2.7 ”第 一 天 我 们 学 到 了 什么 


你 已 体验 过 不 少 Io 的 有 趣 内 容 。 你 知道 了 Io 的 基本 特征 。Io 这 门 原型 语言 有 着 非常 简单 的 语 
法 ， 你 可 以 用 这 些 语法 去 构建 属于 这 门 语言 本 身 的 全 新 基本 元 素 。 对 Io 来 说 ， 甚 至 连 核心 元 素 
也 不 带 有 最 简单 的 语法 糖 。 在 某 些 情况 下 , 这 种 最 简 语 法 的 方式 会 对 你 阅读 代码 的 语法 增加 些许 
难度 。 

最 简 语 法 也 有 一 些 好 人 处。 既然 能 用 语法 做 的 事 不 多 , 你 也 就 不 必 学 习 语法 的 各 种 特殊 规则 和 





























Q@ 即 单 指令 流 多 数据 流 ( Single Instruction Multiple Data )， 是 在 同一 时 间 对 多 个 数据 进行 同一 指令 操作 ， 从 而 实现 
并 行 化 的 技术 。 
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例外 规则 。 只 要 知道 怎么 读 句 子 ， 就 能 够 读 民 这 些 语法 。 学 习 Io 时 ， 你 的 词汇 量 也 会 有 所 增加 。 
作为 一 名 新 学 生 ， 你 的 学 习 负 担 是 大 大 减轻 了 : 
口 理解 儿 条 语法 规则 ; 
口 理解 消 县 ; 
口 理解 原型 ; 
口 理解 库 。 


3.2.8 ”第 一 天 自习 


当 你 查找 Io 的 背景 资料 时 ， 搜 索 习 题 答 宁 会 稍微 有 些 困 难 ， 因 为 I0 的 不 同 含义 太 多 了 。 我 建 
议 你 用 Google 搜 索 “Io languange” 关 键 字 。 
找 

口 一 些 Io 的 示例 问题 。 

口 一 个 可 解答 问题 的 Io 社 区 。 

口 市 有 Io 惯 用 法 的 风格 指南 。 


只 


口 对 1+1 求 值 ， 然 后 对 1 + "one" 求 值 。Io 是 强 类 型 还 是 弱 类 型 ? 用 代码 证 实 你 的 答案 。 

口 0 是 true 还 是 false? 空 字 符 串 是 true 还 是 false? ni1 是 true 还 是 false? 用 代码 证 实 
你 的 答案 。 

口 如 何 知 道 某 个 原型 都 文 持 哪 些 模 ? 

口 = (等 号 )、:= (冒号 等 号 )、::= (冒号 冒号 等 号 ) 之 间 有 何 区 别 ? 你 会 在 什么 情况 下 使 
用 它们 ? 








做 





口 从 文件 中 运行 Io 程 序 。 
口 给 定 模 的 名 称 ， 执 行 该 槽 中 的 代码 。 
花 上 点 时 间 熟 悉 模 和 原型 。 理 解 原 型 的 运行 方式 。 


3.3 第 二 天 : 香肠 大 王 


回想 一 下 Ferris Bueller 吧 。 在 那 部 电影 里 ，Ferris Bueller 这 名 出 身 于 中 产 阶 级 的 高 中 生 ， 居 然 
吕 称 目 己 是 芝加哥 的 香肠 大 王 。 这 一 瑚 也 成 了 经 典 的 闻 鹏 作 执 的 桥 段 。 正 因为 他 疏 得 变通 、 不 的 
泥 于 陈规 ， 所 以 免费 在 紧 华 饭店 里 美和 餐 了 一 顿 。 如 果 你 有 Java 青 景 并 且 喜 欢 Java， 那 么 你 会 觉得 
不 该 如 此 一 一 太 过 放纵 未 必 是 件 好 事 。 从 Java 社 区 看 来 , Bueller 的 那 套 把 戏 , 还 是 丢 到 一 边 为 好 。 
不 过 到 了 Io 当 中 ， 你 有 必要 学 会 一 些 变 通 之 站 ， 这 样 才能 充分 利用 Io 的 强大 威力 。 如 采 你 有 开发 
Perl 脚 本 育 景 ， 那 么 你 大 概 会 喜欢 Bueller 的 把 戏 ， 因 为 这 玫 他 达到 了 目的 。 如 果 你 编程 一 四 较为 
迅速 , 但 代码 略 显 杂乱 无 草 , 那么 在 用 Io 时 ,你 就 必须 稍微 收敛 一 下 目 己 的 散 提 ,融入 一 些 章法 。 
在 第 二 天 中 ， 你 将 要 了 解 到 如 何 用 Io 的 槽 和 消息 构造 核心 行为 。 






































图 灵 社 区 会 员 LorraineMeillorrainemei@gmail.com) 专 享 尊重 版 权 


3.3 第 二 天 : 香肠 大 王 。 51 


3.3.1 条 件 和 循环 


Io 的 所 有 条 件 语 名 在 实现 时 都 没 用 到 什么 语法 糖 。 你 会 发 现 ， 它们 易于 理解 和 记忆 ,但 读 起 
来 有 点 难度 ， 因 为 其 中 没有 多 少 博 法 信息 。 写 个 无 限 循 环 很 简单 ， 你 可 以 按 Ctrl+C 中 断 它 : 





Io> 1oop(- getting dizzy...” printlin) 
getting dizzy... 


getting dizzy... 
getting dizzy.^C 
LoVM: 
Received signal. Setting interrupt flag. 








在 使 用 各 种 并 发 结构 时 ,循环 常常 有 其 用 武之 地 。 不 过 一 般 来 说 , 有 条 件 限制 的 循环 结构 更 3 
为 党 用， 比如 while 循 环 。while 循 环 带 有 一 个 条 件 和 一 个 用 来 求 值 的 消 上 朋 。 记 住 ， 分 号 会 把 两 
个 不 同 的 消息 连接 起 来 : 

TO> TO E 

宇和 

Io> while(1 <= 11, 1 println; 1 = 1 + 1); "This one goes up to 11” printin 

1 

2 





10 
11 
This one goes up to 11 


for 循 环 也 能 做 到 同样 的 事 。for 循 环 审 有 一 个 计数 天、 一 个 初始 信 、 一 个 终止 信 、 一 个 可 选 
的 增 量 、 以 及 一 个 带 发 送 者 的 消息 。 

Io> for(i, 1, 11, 1 printin); "This one goes up to 11™” printin 

由 

2 

10 

11 


This one goes up to 11 
==> This one goes up to 11 


也 可 以 增加 可 选 增 量 ， 就 像 下 面 这 样 : 
Io> for(i, 1, 1l, 2, 1 printin); "This one goes up to 11” printin 
由 


7 

9 

11 

This one goes up to 11 

==> This one goes up to 11 


QD 在 稍 后 3.3.3 节 中 将 讲 到 。 
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实际 上 , 你 经 常会 用 到 任意 数量 的 参数 。 你 已 经 知道 可 选 参数 是 for 循 环 的 第 4 个 参数 。 然 而 ， 
Io 还 允许 你 附加 额外 参数 。 这 看 似 挺 方便 , 但 因为 没有 编译 融 帮 你 检查 代码 , 所 以 必须 多 加 留意 : 

Io> for(i, 1, 2, 1, 1 printin, "extra argument") 

1 

2 

==> 2 

Io> for(i, 1, 2, i printin, "extra argument") 

2 

==> extra argument 


在 第 一 种 情况 中 ，"extra argument" 是 名 副 其 实 的 额外 参数 ， 根 本 用 不 上 。 而 在 第 二 种 情 
况 中 ， 你 去 掉 了 可 选 增 量 参数 ， 这 实际 上 把 后 面 的 所 有 参数 都 癌 左 移动 了 一 个 位 置 。 "extra 
argument" 现 在 变 成 了 消息 参数 ， 而 增 量 步 长 变 成 了 返回 1 的 1 println。 如 采 这 行 场 句 浴 埋 在 
一 个 复杂 的 包 当 中 ， 那 Io 的 这 项 机 制 绝 对 会 把 你 晋 心 死 。 有 时 候 ， 拔 个 葛 卜 难免 会 市 出 泥 。Io 给 
了 你 自由 ， 但 有 时 上 自由 也 会 害 了 你 。 

if 控 制 结构 是 以 函数 的 形式 实现 的 ， 其 形式 如 if(condition, true code, false code)。 
当 条 件 为 真 时 ， 该 函数 执行 true code， 否 则 执行 false code: 

Io> if(true, “It is true.”, "It is false.") 

==> It 1s true. 

Io> if(false) thenC It Ts true) else("It iis false") 

es 本 then("It is true. ”println) else("It is false. ”println) 


It 1s false. 
==> nN1l 


在 控制 结构 上 花 的 工夫 就 这 么 多 。 下 面 ， 我 们 要 用 它们 来 开发 目 己 的 运算 符 。 





3.3.2 ”运算 符 
像 面向 对 象 语言 一 样 , 很 多 原型 语言 也 在 运算 符 上 用 到 了 语法 糖 。 它 们 是 采用 特殊 形式 的 特 
殊 方法 ， 就 像 “+” 和 “/” 这 样 。 在 Io 中 ， 你 可 以 直接 看 到 运算 符 表 ， 如 下 所 示 : 


lo> OperatorTable 
==> OperatorTable Ox100296098: 





Operators 
0 ? @ QQ 
1 光裕 
2 % x / 
3 0 
4 << >> 
5 < < > >= 
6 1 乱入 
7 & 
8 和 
3 | 
10 && and 
11 or || 
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2 
13 %= &= 光宇 和 十 三 二 = 二 /= <<= >>= 人 二 ie 
14 return 


Assign Operators 
::= NewSlot 
:= SetS|ot 
= updateSlot 


To add a new operator: OperatorTable addOperator("+", 4) 
and implement the + message. 
To add a new assign operator: OperatorTable addAssignOperatort( 


"=", "UpdateSlot") and implement the updateSlot message. Ee 
你 可 以 看 到 ,赋值 (assign ) 是 男 一 种 类 型 的 运算 符 。 运 算 符 左边 的 数字 代表 该 运算 符 的 优先 
级 ， 参 数 优先 绑 定 到 优先 级 徘 近 0 的 运算 符 上 。 从 表 中 可 看 到 “+” 先 于 “==” 求 值 ， 这 点 你 应 该 
能 够 猪 到 。 但 用 “QO ”可 以 改变 这 种 优先 级 。 我 们 现在 来 定义 一 个 异 或 运算 符 xor。 如 果 只 有 一 
个 参数 为 真 ， 则 xor 返 回 true， 否 则 返回 false。 首 先 ， 我们 把 这 个 运算 符 添加 到 运算 符 表 中 : 


Io> OperatorTable addOperator('"xor”, 11) 
==> OperatorTable Ox100296098: 





Operators 
10 && and 
11 or xor || 
12 


你 可 以 在 添加 的 那个 优先 级 位 置 上 看 到 新 运算 符 。 接 下 来 ,我 们 要 对 true 和 false 两 种 情况 
实现 xor 方 法 : 
Io> true xor := method(bool, if(bool, false, true)) 


==> method(bool, 
1f(bool, false, true) 


Io> false xor := method(bool, if(bool, true, false)) 
==> method(bool, 
1f(bool, true, false) 





) 

这 里 为 了 保持 概念 人 简单 而 使 用 了 暴力 穷 举 法 。 我 们 实现 的 运算 符 行为 准确 无 误 , 正如 前 面 预 
期 的 那样 : 

Io> true xor true 

==> false 

Io> true xor false 

==> true 

Io> false xor true 

==> true 

Io> false xor false 

==> false 
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综 上 所 述 ，true xor true 会 被 解析 为 true xor(true)。 而 之 前 运算 符 表 那 个 方法 ,确定 
了 新 运算 符 的 优先 级 顺序 ， 以 及 优先 级 作用 下 的 简化 语法 "。 

赋值 运算 科目 成 一 表 , 运行 起 来 和 其 他 运算 符 不 太一 样 。 它 们 会 像 消息 那样 运行 。 你 可 以 在 
3.4 市 中 见 到 一 个 实例 。 现 在 ,我 要 讲 到 的 运算 符 内 容 已 全 部 讲 完 。 下 面 ， 我 们 开始 学 习 消 息 。 
通过 消息 ， 你 能 修得 如 何 实现 目 己 的 控制 结构 。 





3.3.3” 消 电 


在 我 写作 本 草 的 过 程 中 ，Io 代 码 的 一 位 贡献 者 帮助 我 克服 了 不 少 困 难 。 他 说 :“Bruce，Io 中 
有 个 东西 你 非 理 解 不 可 ， 因 为 几乎 一 切 都 是 消息 。 如 果 你 看 看 Io 代 码 ， 会 发 现 除了 注释 符 和 参 
数 之 间 的 逗 忆 外， 一 切 事 物 都 是 消息 。 没 错 ， 一 切 事 物 ! 学 好 Io 意 味 看 不 仅仅 学 会 通过 调用 来 操 
作 这 些 消 息 。 在 这 门 语言 中 , 消息 反射 是 一 项 至 关 重 要 的 能 力 。 你 可 以 查询 任何 消息 的 任何 特性 ， 
再 对 它们 执行 适当 的 操作 。 

一 个 消息 由 三 部 分 组 成 : 发 送 者 (sender )、 目 标 (target ) 和 参数 (arguments)。 在 Io 中 ， 
消 且 由 发 送 者 发 送 至 目标 ， 然 后 由 目标 执行 该 消 旦 。 

你 可 以 用 ca11 方 法 访问 任何 消息 的 元 信息 (meta information )。 下 面 ， 我 们 创建 两 个 对 象 : 

-个 是 获得 消息 的 邮局 对 月 postOffice， 一 个 是 发 送 消息 的 寄 信 人 对 象 mai ler。 


Io> postOffice := Object clone 
==> Object Ox100444b38: 
































Io> postOffice packageSender := method(call sender) 
==> method ( 
call sender 








) 
Io> mailer := Object clone 


==> Object Ox1005bfda0: 


Io> mailer deliver := methodCpostoffice packageSender) 
==> method( 

postoOffice packageSender 
) 


它 有 一 个 槽 一 一 deliver。 该 槽 发 送 一 个 packageSender 消 息 给 postOffice。 现 在 ， 我 们 
有 了 一 个 可 以 发 送 消 息 的 mailer 对 和 象 : 
Io> mailer deliver 


==> Object Ox1005bfda0: 
deliver = method(...) 





J 所 谓 优先 级 作用 下 的 简化 语法 , 指 的 是 类 似 1+2*3 这 样 的 形式 ,而 对 应 的 未 简化 语法 ( 即 带 括 号 的 形式 ) 为 1+(2*3)。 
虽然 简化 后 代码 较 短 ， 但 为 了 清晰 起 见 ， 一 般 的 编程 惯例 提倡 通过 括号 显 式 地 表明 运算 顺序 。 
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也 束 是 说 ，de1iver 方 法 是 发 送 消息 的 对 象 。 我 们 还 可 以 获取 目标 ， 像 下 面 这 样 : 
Io> postOffice messageTarget := method(call target) 
==> method ( 
call target 
) 
Io> postOffice messageTarget 
==> Object Ox1004ce658: 
messageTarget = method(. . 
packageSender = method(. . 


这 非常 简单 。 你 从 权 名 可 以 看 出 ， 这 里 的 目标 是 邮局 postOffice。 我 们 还 能 获取 原 消 息 名 
和 参数 ， 如 下 所 示 : 


Io> postOffice messageArgs := method(call message arguments) 
==> method( 
call message arguments 


-) 
-) 








Io> postOffice messageName := method(call message name) 
==> method ( 
call message name 


Io> postOffice messageArgs("one", 2，:three) 
==> list("one", 2, : three) 

Io> postOffice messageName 

==> messageName 


可 见 ，Io 有 不 少 能 用 来 进行 消息 反射 的 方法 。 接 下 来 的 问题 是 : Io 何 时 计算 消息 ? 

大 部 分 语言 都 将 参数 作为 栈 上 的 值 传递 。 举 例 来 说 ，Java 首 先 计算 参数 的 每 个 值 ， 然 后 把 这 
些 值 放 到 栈 上 。Io 就 不 这 样 。Io 传 递 的 是 消 且 本 里 和 上 上 下文， 再 由 接受 者 对 消 且 求 从。 实际 上 ， 
你 可 以 用 消息 实现 控制 结构 。 回 想 一 下 Io 的 1f， 其 形式 是 if(booleanExpression, trueB1ock ， 
falseBlock)。 假 如 你 现在 想 再 实现 一 个 unless， 实 现 方法 可 能 会 像 下 面 这 样 : 


io/unless.io 











unless := method( 
(call sender doMessage(call message argAt(0))) ifFalse( 
call sender doMessage(call message argAt(1))) ifTrue( 
call sender doMessage(call message argAt(2))) 


) 


unless(1 == 2, write('"One Ts not two\n"”), write("one TS two\n”")) 

这 个 小 例子 很 深 亮 ， 所 以 请 认真 阅读 它 。 你 可 以 将 doMessage 想 象 成 类 似 于 Ruby 的 eval， 
但 更 基础 一 些 。Ruby 的 eval 把 字符 串 求 值 为 代码 ， 而 doMessage 可 执行 任意 消息 。Io 会 对 消息 参 
数 进行 解释 , 但 会 延 氏 绑 定 和 执行 。 在 典型 的 面 癌 对 象 霹 言 中 ,解释 融 或 编译 硕 可 能 会 计算 所 有 
参数 ， 包 括 两 者 的 代码 块 ， 然 后 把 它们 的 返回 值 放 到 栈 上 。 但 在 Io 中 ， 事 情 完 全 不 是 这 样 。 

假如 对 象 westley 发 送 消 息 princessButtercup unless(trueLove, ("It is false" 
print1n), ("It is true"” print1n))， 则 其 流程 如 下 所 示 : 
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(1) 对 象 westley 发 送 上 一 条 消息 ; 

(2) Io 取 得 经 过 解释 的 消息 以 及 上 下 文 〈 该 调用 的 发 送 者 、 目 标 、 消 息 )， 并 将 其 放 到 栈 上 ; 

(3) 现在 , princessButtercup 对 消息 求 值 。 它 没有 un1less 槽 , 因此 Io 汽 春 原 型 链 ( prototype 
chain ) 回 上 搜索 ， 直 至 找到 un1ess 消 息 为 止 ; 

(4) Io 开 始 执行 unless 消 息 。 首 先 ，Io 执 行 cal1 sender doMessage(call message 
argAt(0))。 这 人 名 代码 可 化 简 为 westley trueLove。 如 果 你 看 过 《公主 新 娘 》 这 部 电影 ， 你 会 
知道 ，westley 有 一 个 叫 trueLove 的 模 ， 并 且 该 模 的 值 为 true; 

(5) 既然 这 消息 的 值 不 是 false, 那 我 们 执行 第 三 个 代码 块 , 该 代码 块 化 简 为 westley ("It is 
true” printlin)。 

A -个 事实 : Io 不 是 执行 参数 来 计算 实现 unless 控 制 结构 的 返回 值 的 。 这 一 思想 极 

其 强大 。 迄 今 为 止 ， 你 已 看 到 了 反射 等 式 的 一 边 : 带 消 息 反 射 的 行为 。 该 等 式 的 另 一 边 是 状态 。 
下 面 ， 我 们 会 和 对 梨 的 模 一 起 观察 状态 


3.3.4 反射 


Io 提 供 了 一 组 简单 的 方法 ,通过 这 些 方法 ， 你 很 容易 看 清 对 象 的 模 都 做 了 些 什 么 。 下 面 的 代 
ee 并 党 着 原型 链 层 层 加 上 推进 ， 最 终 找 到 一 个 名 为 ancestors 的 方法 : 




















io/animals.io 

Object ancestors := method( 
prototype := self proto 
if(prototype != Object， 
writeln("Slots of ", prototype type, "\Nn--------------- "> 
prototype slotNames foreach(slotName, writeln(slotName)) 
writeln 


prototype ancestors)) 


Animal := Object clone 
Animal speak := method( 
"ambiguous animal noise” printl1n) 
Duck := Animal clone 
Duck speak := method( 
"quack” printl1n) 


Duck walk := method( 
"waddle” printl1n) 


disco := Duck clone 
disco ancestors 





GD The Princess Bride， 讲 述 了 一 对 青年 男女 追求 真爱 的 冒险 过 程 ， 其 中 男 主人 公 的 名 字 为 Westley。 一 一 编者 注 
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这 段 代码 不 算 太 复杂 。 首 先 , 我 们 创建 了 一 个 Animal 原 型 ， 并 用 它 创 建 了 一 个 带 speak 方 法 
的 Duck 实 例 。Duck 也 是 disco 的 原型 。ancestors 方 法 打印 该 对 象 原型 的 柳 ， 然后 又 在 原型 上 调 
用 ancestors 方 法 。 记 住 , 一 个 对 象 可 以 有 好 几 个 原型 ,但 这 里 我 们 只 处 理 一 个 原型 的 情况 。 为 
了 厄 省 篇 幅 ， 我 们 在 它 打 印 出 0bject 原 型 的 所 有 权 之 前 中 止 了 递归 。 运 行 io animals.io， 输 
出 如 下 : 


Slots of Duck 











这 些 输出 郡 在 我 们 意料 之 内 。 每 个 对 象 都 有 原型 ， 而 这 些 原 型 也 者 是 市 模 的 对 象 。 在 Jo 中， 
处 理 反 射 分 为 两 部 分 。 在 邮局 的 那个 例子 中 ， 你 见 到 了 消息 反射 。 对 象 反 射 的 意思 是 ， 处 理 对 银 
和 对 和 象 的 权 。 这 些 部 和 类 扯 不 上 半点 关系 。 





3.3.5 ”第 二 天 我 们 学 到 了 什么 


如 打 你 跟 得 上 进度 , 第 二 天 该 算是 突飞猛进 的 一 天 。 你 对 Io 的 了 解 应 达到 在 文档 的 些许 帮助 
下 能 完成 基本 任务 的 水 平 。 你 学 会 了 如 何 进行 判断 、 定 义 方法 、 使 用 数据 结构 、 使 用 基本 控制 结 
构 。 在 下 面 的 练习 中 ，Io 会 接受 我 们 的 考验 。 一 定 要 把 Io 彻 抵 弄 明日 。 否 则 我 们 后 面 进一步 讨论 
Io， 包 括 元 编程 和 并 发 空间 等 问题 时 ， 你 绝对 会 后 悔 当 初 怎么 没完 全 等 握 这 些 基本 知识 。 

















3.3.6 ”第 二 天 自习 


做 

口 斐 波 那 契 数 列 以 两 个 1 开始 ， 每 一 个 数 都 是 之 前 两 个 数 之 和 : 1, 1, 2, 3, 5,，8,，13, 21， 
以 此 类 推 。 写 一 个 计算 第 z 个 斐 波 那 契 数 的 程序 。 这 里 fib(1) 会 得 到 1，fib(4) 会 得 到 3。 
如 果 你 能 用 递归 和 循环 两 种 方法 写 出 来 ， 我 将 给 你 额外 加 分 。 

口 在 分 母 为 0 的 情况 下 ， 如 何 让 运算 符 / 返 回 0? 

口 写 一 个 程序 ， 把 二 维 数组 中 的 所 有 数 相 加 。 

口 对 列表 增加 一 个 名 为 myAverage 的 槽 , 以 计算 列表 中 所 有 数字 的 平均 值 。 如 果 列 表 中 没有 
数字 会 发 生 什么 ? ( 加 分 题 ， 如 果 列 表 中 有 任何 一 项 不 是 数字 ， 则 产生 一 个 lo 异常 。) 

口 对 二 维 列表 写 一 个 原型 。 该 原型 的 dim(x, y) 方 法 可 为 一 个 包含 y 个 列表 的 列表 分 配 内 存 ， 
其 中 每 个 列表 都 有 x 个 元 素 ，set(xX，y) 方 法 可 设置 列表 中 的 值 ，get(x，y) 方 法 可 返回 
列表 中 的 值 。 
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口 加 分 题 : 写 一 个 转 置 方法 ， 使 得 原 列 表 上 的 matrix get(x，y) 与 转 置 后 列表 的 
(new_matrix get(y，xX)) 相 等 。 

口 把 矩阵 写 和 文件， 并 从 文件 中 读 取 矩阵。 

口 写 一 个 程序 ， 提 供 10 次 尝试 机 会 ， 猿 一 个 1 ~ 100 之 间 的 随机 数 。 如 果 你 愿意 的 话 ， 可 以 
在 第 一 次 猜测 之 后 ， 提 示 猜 大 了 还 是 猜 小 了 。 


3.4 第 三 天 : 化 车 游行 和 各 种 奇妙 经 历 


初次 接触 To 的 那 段 日 子 让 我 灰心 背 气 、 不 知 所 措 , 但 过 了 两 三 周 之 后 ,我 居然 感觉 日 己 像 未 
经 世事 的 少女 一 般 , 一 想到 Io 将 带 我 体验 怎样 的 奇妙 之 旅 ， 就 会 情不自禁 地 低 声 轻 突起 来 。 这 就 
像 Ferris 在 新 闻 上 、 在 棒球 场 中 、 在 花车 游行 时 频频 曝光 一 一 总 会 在 你 意 想不到 的 地 方 出 现 。 说 
到 撒 ， 我 真 真 切切 地 通过 Io， 体 验 到 了 我 想 要 的 感 沉 一 一 用 一 门 语言 改变 目 己 思维 方式 的 感 党 。 


























3.4.1 领域 特定 语言 


几乎 每 一 位 深入 人 研究 过 Io 的 人 ， 都 会 对 它 在 DSL 方 面 的 强大 能 力 赞 不 绝口 。Jeremy Tregunna 
是 Io 代 码 的 核心 贡献 者 ， 他 告诉 我 ， 用 Io 实 现 C 语 言 的 一 个 子 集 仪 需 约 40 行 代码 ! 不 过 对 我 们 来 
说 ， 这 个 例子 有 点 过 于 深奥 了 ， 因 此 Jeremy 拿 出 了 男 一 个 压 箱 底 的 宝贝 送 给 我 们 一 一 实现 了 一 种 
有 趣 的 电话 号 码 场 法 的 API。 

比如 ， 你 想 用 以 下 形式 表示 电话 号 人 码 : 

















"Bob Smith": "5195551212"™, 
"Mary Walsh": "4162223434" 
} 


管理 这 样 一 个 列表 的 方法 有 很 多 ， 其 中 最 容易 想到 的 有 两 种 : 对 列表 进行 语法 分 析 、 对 列表 
进行 解释 。 语法 分 析 音 味 着 写 一 个 识别 列表 语法 中 不 同 元 系 的 程序 , 然后 就 能 把 列表 代码 组 织 成 
Io 可 理解 的 结构 。 但 我 们 今天 不 会 讨论 这 个 问题 。 与 之 相 比 ， 把 列表 代码 解释 为 1o 散 列表 的 形式 
要 有 趣 得 多 。 为 了 能 做 到 这 点 ， 我 们 必须 对 Io 做 些 改动 。 改 动 完 毕 之 后 ，Io 就 会 认为 上 面 的 列表 
的 语法 是 正确 的 ， 并 且 根 据 该 列表 构建 出 散 列 表 来 ! 

下 面 就 是 Jeremy 在 Chris Kappler ( 他 用 当前 版 本 的 Io， 更 新 了 原先 的 旧 代 码 ) 的 帮助 下 ， 解 
决 这 一 问题 的 办 法 : 


io/phonebook.io 





























OperatorTable addAssignOperator(":"”", "atPutNumber") 
curlyBrackets := method( 
r := Map clone 
call message arguments foreach(arg, 
r doMessage(arg) 


) 
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) 
Map atPutNumber := method( 
self atPut( 

call evalArgAt(0) asMutable removePrefix("\"") removeSuffix("\""), 
call evalArgAt(1)) 

) 

s := File with("phonebook.txt") openForReading contents 

phoneNumbers := doString(s) 

phoneNumbers keys printin 

phoneNumbers values printin 


这 些 代 码 比 我 们 先前 见 过 的 代码 都 要 稍微 复杂 些 ， 但 你 已 经 知道 了 其 中 的 基本 单元 都 是 什 
下 面 让 我 们 来 解构 它 : 
OperatorTable addAssignOperator(":", "atPutNumber") 
代码 的 第 一 行 ,把 一 个 运算 符 添 加 到 了 Io 的 赋值 运算 符 表 中 。 现 在 , 只 要 在 Io 代 人 码 中 直到 “:”， 
Io 都 会 把 它 转 换 为 atPutNumber。 这 里 你 要 知道 ， 第 一 个 参数 是 名 称 ( 因此 它 是 字符 串 )， 第 二 
个 参数 是 值 。 这 样 一 来 ，key : value 就 将 转换 为 atPutNumber("key"，value)。 继 续 看 下 面 
的 代码 : 
curlyBrackets := method( 
r := Map clone 
call message arguments foreach(arg, 


r doMessage(arg) 


) 








NN 











r 


) 

只 要 Io 代 码 过 到 了 大 括号 ( {} ), 转换 程序 就 会 调用 这 个 curlyBrackets 方 法 。 在 该 方法 中 ， 
我 们 创建 了 一 个 空 映射 。 然 后 ， 我 们 对 每 个 参数 执行 cal1 message arguments foreach (Carg， 
r doMessage(arg))。 这 人行 代码 真 的 是 太 浓 缩 了 ! 我 们 把 它 分 解 开 来 看 看 。 

从 左 到 右 看 ， 先 是 执行 cal1 message， 它 正 是 大 括号 中 的 那 部 分 代码 。 然 后 ， 用 foreach 
迭代 遍历 列表 中 的 每 一 条 电话 号 码 。 对 于 每 一 条 中 的 名 字 和 和 号码， 执行 r doMessage(arg)。 例 
如 ， 第 一 条 电话 号 码 将 执行 为 r "Bob Smith": "5195551212"。 由 于 :在 操作 符 表 中 是 
atPutNumber， 因 此 将 执行 r atPutNumber("Bob Smith"，"5195551212")。 下 面 我 们 来 看 看 
下 面 的 代码 : 

Map atPutNumber := method( 

self atPut( 


call evalArgAt(0) asMutable removePrefix("\"") removeSuffix("\""), 
call evalArgAt(1)) 
































) 

记 住 ，key : value 会 转换 为 atPutNumber("key"，value)。 在 我 们 的 例子 中 ， 键 总 是 字 
符 串 ,所 以 要 去 掉 开 头 和 结尾 的 两 个 引号 。 你 可 以 看 到 ，atPutNumber 只 是 在 目标 ( 即 self ) 上 
调用 了 atPut， 把 第 一 个 参数 的 引 喜 去 择 。 由 于 消息 是 不 可 变 的 〈immutable )， 因 此 为 了 去 挥 引 
写 ， 必 须 把 它 转化 为 一 个 可 变 值 。 
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你 可 以 使 用 如 下 所 示 代 码 : 


s := File with("phonebook.txt") openForReading contents 
phoneNumbers := doString(s) 


phoneNumbers keys printiln 
phoneNumbers values printin 


理解 Io 语 法 不 是 什么 大 不 了 的 事 。 你 必须 要 去 理解 的 是 ， 在 库 里 到 底 发 生 了 些 什 么 。 在 上 面 
的 例子 中 ， 你 见 到 了 几 个 新 的 库 。doString 把 我 们 的 电话 号 人 码 筹 求 值 为 lo 代码，File 是 与 文件 
交互 的 原型 ，with 指 定 了 文件 名 并 返回 一 个 文件 对 象 ，openForReading 打 开 该 文件 并 且 也 返回 
该 文件 对 象 ， 而 contents 返 回 该 文件 的 内 容 。 把 它们 组 合 在 一 起 ， 这 些 代码 就 可 以 谈 取 电话 注 
并 将 其 求 值 为 lo 代码 。 

然后 ， 大 括号 定义 了 一 个 映射 ， 映 射 中 的 每 一 行 "string1"” : "string2" 都 会 转化 为 map 
atPut("string1l",，"string2")， 电话 号 码 的 散 列 表 就 这 样 产 生 了 。 这 样 一 来 ， 在 Io 当 中 ， 由 于 
你 可 以 随心 所 欲 地 把 运算 符 重 定义 为 组 成 DSL 的 符号 , 因此 ,构建 称心 如 意 的 DSL 也 就 手 到 擒 来 了 。 

现在 ， 你 逐渐 开始 明白 如 何 改 变 Io 的 语法 。 那 么 ,你 又 该 如 何 去 动 态 改 变 Io 的 行为 呢 ?” 在 下 
一 小 市 中 ， 我 们 会 讲解 这 个 主题 。 














3.4.2 lo 的 method_missing 


先 复 习 一 下 控制 流 。0bject 原 型 包含 了 处 理 消 息 传 递 的 一 切 行为 。 当 你 把 消息 发 送 给 对 得 
的 时 候 ， 对 象 将 完成 下 列 事情 : 

(1) 计算 所 有 参数 ， 这 些 参数 其 实 就 是 消息 ; 

(2) 获取 消息 的 名 称 、 目 标 和 发 送 者 ; 

(3) 答 试 用 目标 上 的 消息 名 称 谈 取 醒 ; 

(4) 如 果 模 存在， 返回 其 数据 或 触发 其 包含 的 方法 ; 

(5) 如 朱 模 不 存在 ， 则 把 消息 转发 给 它 的 原型 。 

这 些 是 Io 的 基本 继承 机 制 。 一 般 来 说 ， 它 们 不 会 把 你 卉 得 军 头 转 回 。 

但 在 茶 些 情况 下 ， 你 还 是 会 晕 头 转向。 就 像 Ruby 的 method_missing 那 样 ， 你 也 可 以 用 Io 的 
forward 消 息 做 到 同样 的 事 ， 但 这 样 做 的 风险 要 更 高 一 些 。Io 没 有 类 ， 所 以 改变 forward 也 将 改 
变 从 0bject 获 得 基本 行为 的 方式 。 这 有 点 像 走高 空 钢 丝 时 间 时 抛 接 三 柄 小 答 子 。 如 果 这 样 你 都 
能 安然 无 赤 ， 那 真是 神 乎 其 搁 了 。 我 们 这 就 来 学 习 这 样 的 技巧 。 

XML 是 对 数据 进行 结构 化 的 绝妙 方式 ， 但 却 有 着 令 人 作 哎 的 请 法。 为 了 摆脱 这 博 法 ， 你 可 
以 写 个 程序 ， 用 Io 代 码 来 表示 XML 数据 。 

假如 你 想 把 下 面 的 数据 : 


<body> 

<p> 

This is a simple paragraph. 
</p> 

</ body> 
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表示 成 这 样 : 
body' 


p( This 1s a simple paragraph.") 
) 


我 们 把 这 种 新 语言 称 作 LispML。 我 们 将 用 Io 的 forward 处 理 这 门 语言 ， 就 像 处 理 不 存在 的 方 
法 ( missing method ) 一 样 。 下 面 给 出 代码 : 

io/builder.io 

Builder := Object clone 

Builder forward := method( 


writeln("<", call message name, ">") 
call message arguments foreach( 





arg, 
content := self doMessage(arg); 
if(content type == "Sequyuence", writeln(content))) 


writeln("</", call message name, ">")) 


Builder ul(C 
Tit TO) 
1i(C"Lua"), 
11C"JavaScript")) 
剖析 一 下 这 段 代 码 。Builder 原 型 是 代码 的 核心 部 分 。 它 覆盖 了 forward， 使 其 可 接收 任意 
方法 。 首 先 ,， 它 打印 一 个 开始 标签 ("<")。 然 后 ,我 们 用 到 了 一 点 消息 反射 。 如 果 这 消息 是 个 字 
符 串 , Io 会 把 它 识 别 为 序列 ( sequence ), 所 以 Bui1der 会 把 该 字符 串 打 印 出 来 ( 打印 时 不 带 引 号 )。 
最 后 ，Bui1der 打 印 一 个 结束 标签 (">" )。 
输出 与 你 想象 的 结果 完全 相同 : 
<U |> 
<11> 
TI0 
«</ | 1 
<11> 
Lua 
</11> 
<11> 
JavaScript 
</11> 
</U1> 
其 实 ，LispML 未 必 比 传统 的 XML 有 多 大 程度 的 提高 ， 但 这 例子 还 是 很 有 指导 意义 。 你 可 以 
完全 改变 一 个 Io 原 型 的 继承 运行 机 制 。Bui1der 原 型 的 所 有 实例 都 将 拥有 同样 的 行为 。 这 样 一 来 ， 
通过 定义 上 自己 的 Object 原型, 并 以 这 个 新 对 象 为 基础 创建 其 他 原型 , 你 就 可 以 用 Io 语 法 创建 一 门 
和 Io 行 为 规 然 不 同 的 新 语言 。 甚 至 ， 你 还 可 以 履 盖 0bject 以 复制 新 对 象 。 
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3.4.3 并 发 


Io 有 非常 出 色 的 并 发 库 ， 其 主要 组 成 部 分 包括 协 程 、actor 和 future。 

1. 协 程 

协 程 是 并 发 的 基础 。 它 提供 了 进程 的 自动 挂 起 和 恢复 执行 的 机 制 。 你 可 以 把 协 程 想象 为 涡 有 
多 个 入 口 和 出 口 的 函数 。 每 次 yie1d 都 会 自动 挂 起 当前 进程 ， 并 把 控制 权 转 到 男 一 进程 当中 。 通 
过 在 消息 前 加 上 @ 或 QQ@， 你 可 以 异步 触发 消息 ， 前 者 将 返回 future ( 稍 后 详 述 )， 后 者 会 返回 ni1， 
并 在 其 自身 线程 中 触发 消息 。 举 个 例子 ， 考 虑 下 面 的 程序 : 


io/coroutine.io 




















vizzini := Object clone 

Vizzin1 talk := method( 
"Fezzik, are there rocks ahead?"” printin 
yield 
"No more rhymes now, I mean Tt. ”println 
yiel1d) 

fezzik := Object clone 


fezzik rhyme := method( 
yield 
"If there are, we'll all be dead." printiln 
yield 
"Anybody want a peanut?"” printl1n) 


vizzini QQtalk; fezzik QQrhyme 


Coroutine currentCoroutine pause 

fezzik 和 vizzini 痢 市 有 协 程 , 它们 是 彼此 无 天 的 Object 实例 。 我 们 异步 触发 talk 和 rhyme 
方法 。 它 们 并 发 执行 ,用 yie1d 消 息 在 指定 时 间 段 目 动 把 控制 权 交 给 另 一 方法 。 最 后 一 行 的 pause 
用 来 等 街 所 有 异步 消息 执行 完毕 , 然后 退出 程序 。 协 程 在 面 对 需 要 多 任务 合作 的 解决 方案 时 表现 
完美 。 通 过 这 个 示例 程序 ， 两 个 需要 彼此 协作 的 进程 能 够 轻 多 完成 谈 诗 (read poetry ) 任务 ， 像 
下 面 这 样 : 

batate$ io code/io/coroutine.1io 

Fezzik, are there rocks ahead? 

If there are, we'll all be dead. 

No more rhymes now, I mean 1t. 


Anybody want a peanut? 
Scheduler: nothing left to resume so we are exiting 


Java 和 基于 C 的 语言 使 用 的 并 发 哲学 叫做 抢占 式 多 任务 ( preemptive multitasking )。 当 你 把 这 
种 并 发 策略 和 可 变 状 态 的 对 象 结合 使 用 时 ,程序 会 变 得 一 团 糟 ， 因 为 我 们 难以 预测 它 的 行为 ,大 
多 数 团队 现 有 的 测试 搁 术 也 几乎 不 可 能 对 其 进行 调试 。 协 程 就 不 一 样 了 。 利 用 协 程 ， 应 用 程序 可 
以 在 适当 的 时 间 放 弃 控 制 权 。 比 如 ， 分 布 式 客户 端 可 以 在 等 竺 服务 端 啊 应 时 放弃 控制 权 ， 工 作者 
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进程 也 可 以 在 处 理 完 队列 中 的 产品 后 暂停 。 

协 程 是 组 成 更 高 级 抽象 概念 ( 如 actor ) 的 基本 元 素 。 你 可 以 把 actor 想 成 通用 的 并 发 原 语 ， 它 
可 以 发 送 消息 、 处 理 消息 以 及 创建 其 他 actor。actor 接 收 到 的 消息 是 并 发 的 。 在 Io 中 ，actor 把 新 到 
达 的 消息 放 到 队列 上 ， 并 用 协 程 处 理 队 列 中 的 各 个 消息 。 

下 面 ， 我 们 就 要 来 看 一 下 actor。 你 不 会 相信 用 它 写 出 来 的 代码 居然 能 如 此 简单 。 

2. actor 

和 线程 相 比 ，actor 有 着 巨大 的 理论 优势 。 一 个 actor 改 变 其 日 号 的 状态 ,， 并且 通过 严格 控制 的 
队列 接触 其 他 actor。 而 多 个 线程 可 以 不 受 限制 地 改变 彼此 状态 。 线程 容易 受到 被 称 做 竞争 条 件 的 
并 发 问题 影响 ， 在 这 种 问题 中 ， 如 果 两 个 线程 同时 存 取 资 源 ， 可 能 导致 不 可 预测 的 后 果 。 

Io 的 动人 之 处 就 在 于 此 ， 发 送 异 步 消 息 给 任意 对 象 就 是 actor， 就 这 么 徐 单 。 举 一 个 小 例子 。 
首先 ， 创 建 两 个 对 象 ， 分 别 叫做 faster 和 s1ower: 


Io> Slower := Object clone 
==> 0bject_0x1004ebb18 : 



































Io> faster := Object clone 
==> Object Ox100340b10: 


然后 ， 给 这 两 个 对 绷 添 加 一 个 方法 ， 叫 做 start: 


Io> slower start := method(wait(2); writeln(C'"slowly")) 
==> method( 

wait(2); writeln("slowly") 
) 
Io> faster start := method(wait(1); writeln("quickly")) 
==> method( 

wait(1); writeln("quickly") 
) 





我 们 可 以 通过 简单 的 消息 ， 在 一 行 代码 中 顺序 调用 这 两 个 方法 ， 像 下 面 这 样 : 
Io> slower start; faster start 

slowly 

quickly 

==> ni1il 


它们 会 按 顺 序 执行 ， 因为 一 定 是 第 一 个 消息 结束 之 后 , 第 二 个 消息 才 会 开始 。 但 我 们 可 以 通 
过 在 这 两 个 消息 之 前 加 上 @@， 让 对 象 在 目 己 的 线程 中 运行 。 这 样 做 会 立即 返回 ni1: 
Io> slower QQstart; faster QQstart; wait(3) 


quickly 
slowly 


我 们 在 最 后 加 了 一 个 wait, 以 便 让 所 有 线程 在 程序 终止 前 执行 完毕 。 这样 做 能 获得 非常 棱 的 
结果 。 我 们 同时 运行 了 两 个 线程 。 只 不 过 发 送 了 出 步 消 息 给 这 两 个 对 象 ， 它 们 就 全 都 变 成 了 actor。 

3. future 

讲 过 future 概 念 之 后 ， 关 于 并 发 的 讨论 就 将 告 一 段落 。future 是 在 异步 调用 消息 时 立即 返回 的 
一 个 结果 对 象 。 由 于 被 调用 的 消息 可 能 需要 一 段 时 间 处 理 ， 因 此 到 最 终 产 生 结 果 的 时 候 ，future 
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会 变 成 这 个 结果 值 。 如 果 在 结果 尚未 产生 时 请 求 future 的 值 ， 进 程 会 阻塞 直到 产生 结果 为 止 。 假 
如 有 这 样 一 个 执行 时 间 很 长 的 方法 : 
futureResult := URL with("http://go0gle.com/") Qfetch 
我 可 以 先 执行 这 个 方法 ， 然 后 蕊 上 写 一 些 做 其 他 事情 的 代码 ， 和 直到 产生 结果 时 再 取 回 : 
pe “我 们 可 以 在 后 台 运 行 网 页 抓 取 的 同时 做 一 些 别 的 事情 ……”) 
这 种 情况 下 ， 就 可 以 使 用 future 值 : 


Writeln(“ 这 里 将 阻塞 ， 直 到 结果 产生 为 止 ”) 
// 上 面 这 行 代码 会 立刻 执行 











writeln("fetched ", futureResult size, " bytes") 
// 上 面 这 行 代码 会 阻塞 ， 直 到 计算 完毕 

// 然 后 Io 打 印 出 结果 值 

==> 1955 





futureResu1t 这 上段 代码 片断 会 立即 返回 一 个 fture 对 象 。 在 Io 中 ，future 并 不 是 代理 实现 ! future 
会 阻塞 到 我 们 可 获得 结果 对 象 时 为 止 。fature 的 值 一 开始 是 个 Future 对 象 ， 但 等 到 结果 产后 之 后 ， 
所 有 该 fnture 值 的 实例 都 会 指 加 结果 对 象 ， 命 令 行 将 会 把 最 后 一 条 返回 语句 的 字符 串 值 打印 出 来 。 

Io 的 future 还 会 提供 死 锁 上 自动 检测 机 制 。 这 可 谓 画龙点睛 之 笔 ， 而 且 它 既 容 易 理 解 ， 也 便于 
使 用 。 

现在 你 已 经 对 Io 的 并 发 机 制 有 所 了 解 ,那么 也 就 打下 了 正确 评价 这 门 语言 的 恨 好 基础 。 下 面 ， 
我 们 就 总 结 一 下 第 三 天 的 学 习 成 果 ， 以 便 你 能 把 它们 运用 到 实践 当中 。 

















3.4.4 ”第 三 天 我 们 学 到 了 什么 


在 本 市 中 , 你 学 会 了 如 何 用 Io 完 成 一 些 重 要 的 事 。 首先 , 我 们 就 原 有 的 语法 规则 做 了 一 些 “ 变 
通 ”， 并 用 大 括号 构建 了 新 的 散 列 语法 。 我 们 把 一 个 运算 符 加 到 运算 符 表 当 中 ， 并 把 它 和 散 列 表 
中 的 操作 联系 起 来 。 然后, 我 们 构建 了 一 个 XML 生成 融 , 使 用 method_missing 打 印 出 XML 元 素 。 

接 下 来 ， 我 们 写 了 一 些 使 用 协 程 管理 并 发 的 代码 。 协 程 与 Ruby、C、Java 等 语言 中 的 并 发 不 
同 ， 因 为 协 程 只 能 改变 它们 目 映 的 状态 。 有 了 协 程 ， 也 就 拥有 了 更 易于 预测 和 理解 的 并 发 模型 ， 
并 有 旦 遭遇 可 能 成 为 瓶 贷 的 阻塞 状态 的 情况 也 会 减少 。 

我 们 发 送 一 些 使 原型 成 为 actor 的 异步 消息 。 除 了 改变 消息 语法 之 外 , 不 必 做 任何 事情 。 最后， 
人 简单 介绍 了 一 下 future 和 它 在 Io 当 中 的 运行 方式 。 























3.4.5 ”第 三 天 目 习 


做 
口 改进 本 市 生成 的 XML 程 序 ， 增 加 空格 以 显示 绚 进 结构 。 
D 创建 一 种 使 用 括号 的 列表 语法 。 
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口 改进 本 节 生 成 的 XML 程序， 使 其 可 处 理 属 性 : 如 果 第 一 个 参数 是 映射 (用 大 括号 语法 )， 
则 为 XML 程序 添加 属性 。 例 如 : 
book({"author": "Tate"}...) 将 打印 出 <book author='"Tate">， 


3.5 ” 趁 热 打铁 

如 果 想 学 习 如 何 使 用 基于 原型 的 语言 ，Io 能 给 予 极 大 帮助 。Io 的 语法 极其 和 价 单 ， 但 语义 却 无 
比 强大 ， 就 像 Lisp 一 样 。 原 型 语言 封装 了 数据 和 行为 ， 就 像 面向 对 象 编程 语言 一 样 。 继 承 也 比 其 
他 语言 简单 。Io 没 有 类 或 模块 。 对 象 直接 从 其 原型 那里 继承 行为 。 





3.5.1 核心 优势 


原型 语言 通 稍 具有 恨 好 的 可 塑性 ， 你 可 以 改变 任意 对 象 的 任意 模 。Io 把 这 种 灵活 性 发 挥 到 了 
极致 ， 你 可 以 用 它 快 速 创建 出 你 想 要 的 语法 。 和 Ruby 一 样 ， 为 了 使 To 具有 如 此 强大 的 动态 特性 
而 做 的 某 些 权衡 ， 相 对 应 的 也 会 让 它 在 性 能 上 有 所 损失 ， 至 少 在 单线 程 的 情况 下 是 这 样 。Io 有 
强大 的 、 现 代 的 并 发 库 ， 在 很 多 场合 成 为 一 门 优秀 的 并 行 处 理 语言 。 下 面 ， 我 们 就 来 看 看 Io 最 
擅长 哪些 方面 。 

1. 占用 空间 

Io 占 用 的 空间 很 小 。 大 多 数 Io 应 用 程序 的 产品 都 是 通信 式 系统 。 虽 然 Io 这 门 语 言 个 头 小 ， 但 
其 功能 强大 有 旦 相当 灵活 ， 所 以 应 用 在 舱 入 式 领 域 也 就 合情合理 。Io 的 虚拟 机 也 易于 移植 到 不 同 的 
操作 环境 当中 。 

2. 简单 

Io 的 语法 极为 简 清 ， 学 习 它 花 不 了 多 少时 间 。 一 旦 你 理解 了 它 的 核心 场 法 ， 剩 下 的 就 是 学 习 
库 是 如 何 组 织 的 了 。 就 我 的 经 验 而 言 ,在 使 用 这 门 语 言 的 头 两 个 月 中 ,我 能 够 学 会 元 编程 ， 这 速 
度 已 经 相当 快 了 。 在 Ruby 中 , 我 达到 同样 程度 所 花 的 时 间 要 更 长 一 点 。 而 Java, 我 花 了 很 多 个 月 ， 
才 对 元 编程 有 所 了 解 。 

3. 灵活 

Io 的 鸭子 类 型 和 目 由 度 , 能 让 你 在 任何 时 间 改 变 任 何 对 象 的 任何 槽 。Io 这 一 目 由 宽松 的 特点 ， 
意味 着 你 可 以 为 了 适应 自己 的 应 用 环境 而 改变 Io 的 基本 规则 。 通过 改变 forward 权 ,随便 在 哪儿 添 
加 代理 都 非常 容易 。 你 也 可 以 直接 改变 核心 语言 结构 的 柳 ， 从 而 窗 新 这 些 语言 结构 。 你 甚至 可 以 
快速 创建 出 自己 想 要 的 语法 。 

4. 并 发 

与 Java 和 Ruby 不 同 的 是 , Io 的 并 发 结构 非常 与 时 俱 进 。actor、future 和 协 程 使 得 Io 编 写 多 线程 
应 用 程序 要 容易 得 多 ， 而 有 旦 写 出 来 的 程序 更 易于 测试 日 拥有 更 出 色 的 性 能 。Io 也 花 了 很 多 心思 考 
不 可 变数 据 和 如 何 避 免 它们 的 问题 这些 特 征 作 为 其 核心 库 的 组 成 部 分 , 使 我 们 轻松 地 认识 到 什 
么 是 健壮 的 并 发 模型 。 后 面 学 习 其 他 声言 时 ， 我 们 还 会 进一步 巩固 这 些 并 发 概念 。 你 将 在 Scala、 
Erlang 和 Haskell 中 再 见 到 actor。 
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3.5.2 不 足 之 处 


Io 值 得 我 们 喜爱 的 地 方 很 多 , 但 不 尽 如 人 意 之 处 同样 不 少 , 获得 自由 和 灵活 是 要 付出 代价 的 。 
此 外 ， 由 于 在 本 书 所 有 语言 之 中 ，Io 社 区 是 规模 最 小 的 ， 因 此 选 它 完成 项 目 也 要 冒 较 大 风险 。 下 
面 看 看 Io 吊 来 的 问题 都 有 哪些 。 

1. 语法 

Io 几 乎 没什么 语法 糖 。 人 简单 的 语法 就 像 一 把 双 刃 剑 。 一 方面 , 简单 的 语法 使 Io 清 晰 易 懂 , 但 
为 此 付出 的 代价 是 ， 简 单 的 语法 常常 使 Io 难 以 用 人 简短 的 方式 表达 艰深 的 概念 。 换 名 话说 ， 你 会 
发 现 日 己 很 容易 明日 某 个 程序 如 何 用 Io 写 出 来 , 但 与 此 同时 ， 你 也 很 难 明日 条 个 程序 到 底 做 了 
2 

我 们 可 以 拿 Ruby 作 个 对 比 。 刚 开始 ， 你 可 能 会 党 得 Ruby 代 码 array[-1I] 让 人 迷惑 不 解 ， 
为 你 并 不 理解 这 个 博 法 糖 : -1 是 数组 最 后 一 个 元 系 的 缩写 形式 。 你 还 应 该 知道 ，[ 口 是 获 取 数 组 
指定 下 标 值 的 方法 。 一 旦 理解 了 这 些 概 念 ， 阅 读 代 码 就 会 轻松 许多 。 但 IJo 所 做 的 权衡 恰恰 相反 。 
刚 开始 不 用 知道 太 多 ,但 在 理解 那些 用 语法 糖 表 达 起 来 轻松 自如 的 概念 时 ,或 许 束 没 那 么 容易 了 。 

平衡 语法 糖 是 件 困 难 的 事 , 加 得 过 多 , 会 导致 语言 不 易学 习 , 难以 记 住 使 用 方法 ; 加 得 过 少 ， 
在 代码 的 表达 方式 上 花 的 工夫 束 要 多 一 些 , 而且 很 可 能 要 费 大 量 精力 排 错 。 说 到 瓜 , 语法 不 过 是 
个 襄 好 问题 ，Matz 襄 好 丰 晤 的 语法 糖 ，Steve 就 不 这 么 想 。 

2. 社区 

当前 ，Io 社 区 的 规模 非常 小 。Io 不 像 其 他 语言 那样 ， 总 能 找到 合适 的 库 。 想 找到 Io 程 序 员 就 
更 难 了 。 通过 使 用 设计 民 好 的 C 接 口 ( 它 可 以 和 各 种 各 样 的 语言 交互 ), 以 及 非常 容易 记忆 的 语法 ， 
这 些 问 题 可 在 某 种 程度 上 得 到 缓和 。 优秀 的 JavaScript 程 序 员 能 在 短 时 间 内 学 会 Io。 但 较 小 的 社区 
的 确 是 个 缺点 ， 也 是 阻 往 功能 强大 的 新 语言 不 断 发 展 的 主要 因素 。 今 后 ，Io 要 么 就 作出 一 个 杀手 
级 的 应 用 ， 吸 引 大 家 接受 这 门 语言 ， 或 者 是 保持 小 众 代 言 人 的 吴 份 ， 继 续 陪 太子 读书。 

3. 性 能 

脱离 其 他 问题 一 一 如 并 发 或 应 用 程序 设计 一 一 谈论 性 能 通 肖 是 不 明智 的 , 但 我 必须 指出 ,对 
于 那些 未 经 琢磨 且 为 单线 程 服务 的 程序 来 说 ，Io 有 不 少 能 拖 慢 其 执行 速度 的 特性 。 这 个 问题 通过 
Io 的 并 发 结构 可 得 到 一 定 程度 的 缓解 ， 但 你 仍然 要 记 住 Io 在 性 能 上 的 这 种 局 限 性 。 

































































3.5.3 ”最 后 思考 


总 之 ， 我 喜欢 学 习 IJo。 它 语法 简单 ， 占 用 空间 也 小 ， 这 都 很 吸引 我 。 我 还 党 得 ，Io 就 像 Lisp 
那样 ， 同 样 具 有 以 简单 和 灵活 为 主 的 哲学 思想 。Steve Dekorte 在 创造 Io 的 过 程 中 始终 贯彻 这 一 思 
想 , 造就 了 一 门类 似 Lisp 的 原型 语言 。 我 认为 , Io 今 后 仍 能 在 艰 吉 条 件 下 不 断 发展 。 像 Ferris Bueller 
一 样 ，Io 也 有 痢 充 满 光 明 但 危机 四 伏 的 未 来 。 
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Prolog 


Dibbs Sally。 461-0192, 
—— Raymond 


Prolog 这 门 语言 有 时 特别 聪明 ， 有 了 时 又 特别 令 人 失望 。 只 有 当 你 知道 如 何 提 问 时 ， 你 才 会 得 
到 令 人 惊奇 的 答案 。 回 想 一 下 《十 人 》 "这 部 电影 。 我 还 记得 片 中 的 主角 Raymond， 他 在 前 一 晚 
谈 过 一 本 电话 短 后 便 可 以 背 出 Sally Dibbs 的 电话 号 码 ， 而 他 当时 翻 电话 禾 的 时 候 根 本 没有 考虑 是 
否 需 要 记 住 这 个 号 码 。 对 于 Raymond 和 Prolog, 我 经 常 问 出 这 样 两 个 分 量 等 同 的 问题 ,， “他 是 怎么 
知道 的 ? ”和 “他 怎么 不 知道 ? ”。 只 要 你 能 以 正确 的 方式 表达 你 的 问题 ， 那 么 他 将 是 一 个 知识 
源 果 。 

Prolog 与 前 两 草 谈 到 的 编程 语言 有 较 大 的 不 同 。Io 和 Ruby 被 称 为 命令 式 语言 (imperative 
language ), 命令 式 语言 就 像 是 一 本 就 饪 食谱 , 你 需要 精确 地 告诉 计算 机 如 何 去 完 成 一 项 工作 。 更 
高 级 别 的 命令 式 语 言 可 能 会 给 你 讲 来 更 多 杠杆 效力 , 即将 多 个 比较 长 的 步骤 合并 为 一 个 步骤 。 不 
过 从 根本 上 说 ， 你 其 实 是 在 列 出 原料 的 购物 清单 ， 并 搬 述 烤 重 糕 的 详细 步 又 。 

竺 尝试 编写 本 章 之 前 ， 我 花 了 儿 周 时 间 学 习 和 使 用 Prolog。 在 我 不 断 加 强 理 解 的 过 程 中 ， 我 
读 过 多 本 教程 。J.R.Fisher 的 教程 为 我 提供 了 一 些 难 度 很 高 的 例子 。 而 男 外 一 本 由 A.Aaby“ 编写 
的 入 门 教程 则 让 我 对 结构 和 术语 有 了 更 清晰 的 理解 ， 并 且 提 供 了 大 量 实验 。 

Prolog 是 一 门 声明 式 编程 语言 ( decalarative language )。 你 加 Prolog 提 供 一 些 事实 〈fact ) 和 推 
论 (inference )， 并 让 它 为 你 推 新 。 它 更 像 是 一 名 手艺 高 超 的 糕点 师 。 说 出 你 喜欢 的 香 糕 的 特征 ， 
让 糕点 师 挑 选 原料 并 按照 你 提供 的 规则 为 你 烤 出 重 料 。 有 了 Prolog， 你 无 需 知 道 如 何 做 ,计算 机 
会 为 你 作出 推 岂 。 

随意 浏览 一 下 互联 网 , 你 就 能 发 现 很 多 使 用 不 到 20 行 代码 解决 数 独 问题 的 例子 , 也 能 找到 夺 
方 以 及 诸多 著名 难题 的 解决 方法 ,例如 汉 话 塔 (Tower of Hanoi ) (大约 用 了 十 几 行 代码 )。Prolog 















































(D Rain Man,，DVD 版 ,导演 Barry Levinson。( 1988 年 )。 发 行商 : 加 利 福 尼 亚 州 洛杉矶 市 米 高 梅 电 影 制 片 公司 (2000 
年 )。( 译 者 注 : 这 部 电影 中 译名 为 《十 人 放 该 片 获得 了 61 届 奥斯卡 最 佳 影片 、 最 佳 导演 、 最 佳 男 主角 和 最 住 原 
作 剧 本 四 项 重要 奖项 。 该 片 描述 了 一 个 手足 情 次 的 故事 。 一 心 想 获得 遗产 的 弟弟 与 患 有 上 自 闭 证 的 兄长 在 长 途 旅 行 
中 逐渐 产生 了 对 兄长 的 手足 之 情 ， 由 起 初 的 芷 远 粗 又 到 最 后 的 关心 理解 。) 

@) 参见 http:/www.csupomona.edu/~jrfisherwww/prolog tutorial/contents.html。 一 一 原 书 注 











@) 参见 http://wwwi.lix.polytechnique.fr/~liberti/public/computing/prog/prolog/prolog-tutorial.html。 一 一 原 书 注 
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是 最 早 成 功 的 逻辑 编程 语言 之 一 。 你 使 用 纯 逻 辑 设 置 断 言 ，Prolog 判 定 它 们 是 否 为 真 。 你 可 以 在 
靳 言 中 留 出 空白，Prolog 将 符 试 填充 这 些 空白 并 使 那些 不 完整 的 事实 变 为 真 。 


4.1 天 于 Prolog 


Prolog 是 一 门 逻 辑 编程 语言 ， 它 于 1972 年 由 Alain Colmerauer 和 Phillipe Roussel 开 发 完成 ， 在 
目 然 语言 处 理 领域 颇 受 欢迎 。 现 在 ， 从 调度 系统 到 专家 系统 ， 这 门 备 受 革 重 的 语言 为 各 类 问题 提 
供 了 编程 基础 。 你 可 以 使 用 这 门 基于 规则 的 语言 来 表达 逻辑 和 提出 问题 。 和 SQL 一 样 ，Prolog 基 
于 数据 库 ， 但 是 其 数据 由 逻辑 规则 和 关系 组 成 ; 和 SQL 一 样 ，Prolog 包 含 两 个 部 分 : 一 部 分 用 于 
描述 数据 ， 而 另 一 部 分 则 用 于 查询 数据 。 在 Prolog 中 ， 数 据 以 逻辑 规则 的 形式 存在 ， 下 面 是 基本 
构建 单元 。 

口 事实 。 事 实 是 关于 真实 世界 的 基本 上 断言。( Babe 是 一 头 猪 ， 猪 喜欢 泥巴 。) 

口 规则 。 规 则 是 关于 真实 世界 中 一 些 事实 的 推论 。( 如 采 一 个 动物 是 猪 ， 那 么 它 喜 欢 泥 巴 。) 

口 查询 。 查 询 是 关于 真实 世界 的 一 个 问题 。( Babe 癌 欢 泥 巴 吗 ? ) 

事实 和 规则 被 放 入 一 个 知识 库 (knowledgebase ) 。Prolog 编 译 融 将 这 个 知识 库 编 译 成 一 种 适 
于 高 效 查询 的 形式 。 当 我 们 学 习 这 些 例子 的 时 候 ， 你 可 以 使 用 Prolog 表 达 知 识 库 。 人 然后 你 就 可 以 
直接 检索 数据 ， 也 可 以 使 用 Prolog 将 多 个 规则 串联 在 一 起 来 得 到 一 些 你 可 能 不 知道 的 事情 。 

关于 Prolog 的 背景 介绍 已 经 足够 多 了 。 计 我 们 开始 正式 的 学 习 吧 。 


4.2 第 一 天 : 一 名 优秀 的 司机 


在 《两 人 》 这 部 影片 中 ，Raymond 告 诉 他 的 利 第 他 是 名 优秀 的 司机 ， 苇 思 是 他 可 以 在 信和 车 场 
内 以 每 小 时 5 英里 的 速度 沟 驶 一 辆 汽车 。 他 可 以 使 用 汽车 的 所 有 主要 部 件 ， 方向盘 、 镜 车 以 及 油 
门 踏板 ， 只 是 使 用 的 环境 很 有 限 。 这 就 是 你 今天 的 目标 。 我 们 将 使 用 Prolog 描 述 一 些 事 实 ， 编 写 
一 些 规 则 ， 并 且 进 行 一 些 基 本 的 查询 。 和 和 Io 一样 ，Prolog 是 一 门 语法 极其 简单 的 语言 。 你 很 快 就 
可 以 学 会 其 语法 规则 。 当 你 用 有 趣 的 方法 将 其 概念 分 层 ， 真 正 的 乐趣 才 开 始 。 如 果 这 是 你 第 一 
次 使 用 Prolog， 我 可 以 肯定 地 告诉 你 ， 你 要 么 改变 思考 方式 ， 要 么 你 的 学 习 将 以 失败 告终 。 我 们 
将 在 第 二 天 深入 分 析 这 一 点 。 

首先 最 重要 的 是 安装 一 个 可 用 的 Prolog 实 现 版 本 。 我 在 本 书 中 使 用 的 是 GNU Prolog， 版 本 号 
为 1.3.1。 注 站，Prolog 方 言 之 间 可 能 彼此 不 同 。 我 会 尽力 保留 在 共同 点 上 ， 不 过 如 果 你 选择 一 个 
不 同 的 Prolog 版 本 ， 那 就 需要 做 一 点 功课 了 ， 了解 一 下 你 使 用 的 方言 有 何不 同 。 不 管 你 选择 了 什 
么 版 本 ， 这 里 要 告诉 你 的 是 如 何 使 用 它 。 







































































4.2.1 基本 概况 


在 一 些 语 言 中 ， 大 与 字母 如 何 使 用 完全 由 程序 员 自 行 决定 。 不 过 在 Prolog 中 ， 第 一 个 字母 的 
大 小 写 是 有 着 重要 意义 的 ， 如 米 一 个 词 以 小 号 字母 开头 ， 它 就 是 一 个 原子 (atom ) 一 一 一 个 类 似 
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Ruby 竺 号 (symbol ) 的 固定 值 ， 如 琳 一 个 词 以 大 写字 母 或 下 划 线 开头 ,那么 它 束 是 一 个 交 量 。 变 
量 的 值 可 以 改变 , 原子 则 不 能 。 让 我 们 用 一 些 事 实 来 构建 一 个 简单 的 知识 库 吧 。 把 下 面 内 容 融 入 
到 一 个 编辑 侣 中 : 


prolog/friends.pl 





likes(wallace, cheese). 
likes(grommit, cheese). 
likes (wendolene, sheep). 


friend(X, Y) :- \+(X = Y), likes(X, 2), likes(Y, 2). 

上 述 文件 是 由 事实 和 规则 组 成 的 知识 库 。 前 三 行 语 句 是 事实 ,最 后 一 行 语句 是 一 个 规则 。 事 
实 是 我 们 对 这 个 世界 百 接 观 察 的 结果 。 规则 是 关于 现实 世界 的 逻辑 推论 。 现在 , 注意 前 三 行 语句 。 
其 中 每 一 行 都 是 一 个 事实 。wa1l1ace，grommit 和 wendolene 都 是 原子 。 你 可 以 这 样 读 出 它们 : 
wal1ace 喜 欢 cheese，grommit 嘉 欢 cheese，wendolene 喜 欢 sheep。 让 这 些 事 实 开 始 工作 吧 。 

局 动 Prolog 解 释 需 。 如 果 你 用 的 是 GNU Prolog， 输 入 命令 gprol1og。 然 后 输入 下 面 内 容 以 加 
载 文件 : 

| ?- ['friends.pl']. 

compiling /Users/batate/prag/Book/code/prolog/friends.pl for byte code... 


/Users/batate/prag/Book/code/prolog/friends.pl compiled, 4 lines read - 
997 bytes written, 11 ms 





























yes 

| ?- 

除非 Prolog 在 等 待 一 个 中 间 结 果 ， 否 则 它 都 会 用 yes 或 no 作出 回应 。 在 这 个 例子 中 ， 文 件 加 
载 成 功 , 所 以 解析 融 返 回 yes。 我 们 可 以 开始 问 一 些 问 题 了 。 最 基本 的 问题 是 一 些 关 于 事实 的 yes 
和 no 的 问题 。 比 如 : 


| ?- likes(wallace, sheep). 

















no 
| ?- likes(grommit, cheese). 


yes 

这 些 问 题 都 非常 直观 。wallace 喜 欢 sheep 吗 ? ( No. ) grommit 喜 欢 cheese 吗 ? (Yes. ) 
好 像 没 有 什么 吸引 力 : Prolog 仅 仅 是 鹦 咎 学 舌 般 地 将 事实 重新 呈现 给 你 。 当 你 开始 加 入 一 些 逻 辑 
时 ， 它 才 会 变 得 更 为 精彩 。 计 我 们 看 看 一 些 推论 吧 。 
4.2.2 ”基本 推论 和 变量 

下 面 来 测试 friend 规 则 : 


| ?- friend(wallace, wallace). 


No 
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这 样 ，Prolog 就 根据 设置 的 规则 来 回答 yes 或 no 的 问题 。 这 里 远 比 外 表 看 起 来 的 有 深度 。 再 
看 一 下 friend 规 则 : 

在 规则 中 ， 如 果 X 是 Y 的 朋友 ， 那 么 X 就 不 可 能 与 Y 相 同 。 看 看 : -右边 的 第 一 部 分 吧 ， 这 部 分 
被 称 为 一 个 子 目 标 〈subgoal )。N+ 执 行 逻 辑 取 反 操作 ， 这 样 \+(X=Y) 的 意思 惑 是 X 不 等 于 Y。 

再来 做 一 些 查询 : 


| ?- friend(grommit, wallace). 














yes 

| ?- friend(wallace, grommit). 

yes 

在 英语 中 ， 如 有 果 可 以 证 明 X 豆 欢 某 个 Zz 并且 Y 也 言 欢 同一 个 Z， 那 么 Xx 就 是 Y 的 朋友 。wallace 
和 grommit 都 喜欢 cheese， 所 以 这 些 查询 都 返回 yes。 

我 们 来 深入 分 析 一 下 代码 。 在 这 些 查 询 中 ，X 不 等 于 Y, 满足 第 一 个 子 日 标 。 查 询 将 使 用 第 二 
个 和 第 三 个 子 目 标 : 1ikes(X，Z) 和 1ikes(Y，Z)。grommit 和 wallace 都 喜欢 cheese， 所 以 叉 
满足 了 第 二 个 和 第 三 个 子 目 标 。 尝 试 男 外 一 个 查询 : 


| ?- friend(wendolene, grommit). 





no 

在 这 个 例子 中 ，Prolog 会 答 试 几 组 可 能 的 X、Y 和 Z 但 : 

DD wendolene、grommit 和 Cheese 

D wendolene、grommit 和 sheep 

两 种 组 合 都 无 法 同时 满足 两 个 目标 ， 即 wendolene 喜 欢 Z 并 日 grommit 也 喜欢 Z。 因 为 不 存在 
这 样 的 组 合 ， 所 以 逻辑 引擎 报告 no， 即 它们 不 是 朋友 。 

我 们 来 正式 介绍 一 下 这 个 术语 。 

friend(X, Y) :- \+(X = Y), likes(X, 2Z), likes(Y, 2Z2). 

上 述 代 码 是 一 个 具有 三 个 变量 X、Y 和 Zz 的 Prolog 规 则 。 我 们 把 这 个 规则 称 作 friend/2， 即 有 
两 个 参数 的 friend 规 则 的 缩写 。 这 个 规则 拥有 三 个 用 逗号 分 阳 的 子 日 标 。 当 所 有 子 目 标 痢 为 真 
时 ， 这 个 规则 才 为 真 。 所 以 我 们 这 个 规则 的 含义 是 : 如 果 X 与 Y 不 等 同 且 X 和 Y 都 喜欢 同一 个 Zz， 那 
么 X 是 Y 的 朋友 。 























4.2.3 ”填空 


我 们 用 Prolog 回 答 了 一 些 yes 或 no 的 问题 ， 不 过 我 们 能 做 的 可 不 止 这 些 。 在 这 一 节 中 ， 我 们 
将 使 用 逻辑 引擎 为 一 个 查询 找 出 所 有 可 能 的 匹配 。 要 做 到 这 一 点 , 你 需要 在 查询 中 指定 一 个 变量 。 
考虑 下 面 的 知识 库 : 


prolog/food.pl 








food_ type(velveeta, cheese). 
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food_ type(ritz, cracker). 
food_ type(spam, meat). 

food_ type(sausage, meat). 
food_ type(jolt, soda). 

food_ type(twinkie, dessert). 


flavor(sweet, dessert). 
flavor(savory, meat). 
flavor(savory, cheese). 
flavor(sweet, soda). 


food flavor(X, Y) :- food type(X, Z2), flavor(Y, 2). 

我 们 给 出 了 一 些 事 实 。 一 些 诸如 food_type(velveeta，cheese)， 意思 是 一 种 食物 具有 一 
定 的 类 型 。 另 外 一 些 诸如 flavor(sweet, dessert)， 意 思 是 一 种 食物 类 型 具有 特有 的 味道 。 最 
后 , 我 们 给 出 了 一 个 名 为 food_flavor 的 规则 , 它 可 推断 出 食物 的 味道 。 如 采 食 物 X 属 于 Z 类 食物 
日 z 也 具有 特有 味道 Y， 则 食物 X 具 有 food_flavor Y。 编 详 这 段 代 但 : 


| ?- ['code/prolog/food.pl']. 

compiling /Users/batate/prag/Book/code/prolog/food.pl for byte code... 
/Users/batate/prag/Book/code/prolog/food.pl compiled, 

12 lines read - 1557 bytes written, 15 ms 

















(1 ms) yes 
问 一 些 问题 ， 


| ?- food type (What, meat). 
What = Spam ? ; 
What = sausage ? ，; 


no 

现在 很 有 趣 。 我 们 请 求 Prolog,“ 找 出 一 些 满 足 查询 food_type(Cwhat，meat) 的 值 。 Prolog 
找到 了 一 个 spam。 输 入 ;， 请 求 Prolog 找 出 下 一 个 ， 它 返回 了 sausage。 由 于 这 些 查 询 依 赖 基本 种 
实 ， 所 以 值 很 容易 找到 。 接 下 来 ， 请 求 另 一 个 值 ，Prolog 回 答 no。 这 个 行为 可 能 稍 有 些 不 一 致 。 
为 方便 起 见 ， 如 果 在 剩余 部 分 中 Prolog 检 测 不 到 其 他 可 选项 ， 你 将 看 到 一 个 yes。 如 果 Prolog 在 未 
经 更 多 计算 的 情况 下 不 能 立刻 断定 是 否 还 有 更 多 选项 ， 那 么 它 将 提示 你 查询 下 一 个 并 返回 no。 这 
个 特性 真 的 很 方便 。 如 果 Prolog 可 以 尽早 给 你 提供 信息 的 话 ， 它 就 会 这 么 做 。 再 试 儿 个 查询 : 


| ?- food flavor(sausage, sweet). 








no 
| ?- flavor(sweet, What). 


What = dessert ? ; 
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What = soda? ; 


yes 
不 ，sausage 不 是 sweet 的 。 什 么 种 类 的 食物 味道 是 sweet? dessert 和 soda。 这 些 全 部 是 
事实 。 不 过 你 也 可 以 让 Prolog 把 各 种 事实 串 到 一 起 : 


| ?- food_flavor(What, savory). 
What = velveeta ? ; 

What = Spam ? ; 

What = sausage ? ; 


no 

记 住 ，food_flavor(X, Y) 是 一 个 规则 ， 不 是 一 个 事实 。 我 们 请 求 Prolog 找 出 满足 “什么 食 
物 具 有 savory 味 道 ? ”这 个 查询 的 所 有 可 能 值 。Prolog 必 须 将 关于 食物 、 类 型 和 味道 的 基本 事实 
联系 在 一 起 才能 得 出 最 终结 论 。 逻 辑 引 擎 需要 遍历 所 有 使 目标 为 真 的 可 能 组 合 。 

1. 地 图 着 色 

下 面 用 同样 的 思路 来 进行 地 图 着 色 。 为 了 更 深入 地 观察 Prolog， 我 们 采用 了 这 个 例子 。 这 里 
要 给 美国 东南 部 的 地 图 着 色 ,， 填充 图 4-1 中 所 展示 的 各 州 。 我 们 不 想 两 个 接壤 的 州 具 有 相同 颜色 。 


Tennessee 


J pe Alabama \ Georgila 
密西西比 " 吕 亚 拉巴 马 州 | 佐治 亚 州 



































图 4-1 ”部 分 东南 部 州 的 地 图 
对 这 些 人 简单 的 事实 进行 编码 : 


prolog/map.pl 


different(red, green). different(red, blue). 
different(green, red). different(green, blue). 
different(blue, red). different(blue, green). 
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coloring(Alabama, Mississippi, Georgia, Tennessee, Florida) :- 
different(Mississippi, Tennessee), 
different(Mississipp1, Alabama), 
different(Alabama, Tennessee), 
different(Alabama, Mississippi), 
different(Alabama, Georgia), 
different(Alabama, Florida), 
different(Georgia, Florida), 
different(Georgia, Tennessee). 


我 们 有 三 种 颜色 。 我 们 告诉 Prolog 可 以 在 地 图 着 色 中 使 用 的 不 同 颜 色 的 集合 。 接 下 来 ， 定 义 
一 个 规则 。 在 这 个 coloring 规 则 中 ， 告 诉 Prolog 各 个 州 之 间 的 接壤 关系 ， 我 们 完成 了 。 试 一 下 : 


| ?- coloring(Alabama, Mississippi, Georgia, Tennessee, Florida). 





Alabama = blue 
Florida = green 
Georgia = red 


Mississipp1 = red 
Tennessee = green ? 


果然 ， 有 一 种 方法 可 以 使 用 三 种 颜色 对 这 五 个 州 进行 着 色 。 你 也 可 以 通过 输入 a 得 到 男 外 几 
种 着 色 组 合 。 通 过 十 几 行 代码 ,我 们 就 完成 了 地 图 着 色 。 这 个 逻辑 非常 简单 ， 即 便 是 小 孩子 都 可 
以 理解 。 某 个 时 候 ， 你 要 问 目 已 …… 

2. 程序 在 哪 

我 们 没有 使 用 算法 ! 试 试 选 一 门 过 程式 编程 语言 来 解决 这 个 问题 。 你 的 解决 方法 容易 理解 
吗 ? 考虑 一 下 如 果 用 Ruby 或 lo 来 解决 这 样 复杂 的 逻辑 问题 你 需要 做 些 什 么 ”一 个 可 能 的 解决 方 
法 如 下 : 

(1) 收集 和 整理 逻辑 ; 

(2) 用 程序 表达 逻辑 ; 

(3) 找 出 所 有 可 能 的 解决 方法 ; 

(4) 通过 程序 验证 这 些 可 能 的 解决 方法 。 

你 可 能 不 得 不 一 遍 又 一 遍地 去 编写 程序 。Prolog 让 你 通过 事实 和 推论 来 表达 逻辑 ,然后 直 
接 提 问 即 可 。 你 不 必用 这 门 语 言 去 制作 任何 具有 详细 步 又 的 毫 饪 食谱 。Prolog 不 是 通过 编写 
算法 来 解决 遇 辑 问题 的 ， 而 是 通过 如 实地 描述 真实 世界 ， 来 呈现 计算 机 可 以 设法 解决 的 逻辑 
问题 。 

让 计算 机 做 这 些 工 作 吧 。 


























4.2.4 合 一 ， 第 一 部 分 


现在 ， 到 了 回 过 头 来 介绍 一 些 理论 知识 的 时 候 了 。 我 们 来 介绍 一 下 合 一 (unification )。 有 些 
语言 使 用 变量 赋值 。 在 Java 或 Ruby 中 ， 举 个 例子 ，x = 10 意 思 是 将 10 赋 值 给 变量 x。 作 用 在 两 个 
结构 之 间 的 合 一 会 试图 使 两 个 结构 完全 相同 。 考 虑 下 面 的 知识 库 : 
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prolog/ohmy .pl 

cat(11on ) . 

cat(tiger). 

dorothy(X, Y, ZZ) :X= |ion; Y= tiger, Z = bear. 

twin cats(X, Y) :- cat(X), cat(Y). 

在 这 个 例子 中 ，= 意 为 合 一 ， 或 者 说 使 等 号 两 侧 相 同 。 我 们 拥有 两 个 事实 : 1ion 和 tiger 都 
是 cat。 我 们 还 有 两 个 简单 的 规则 。 在 规则 dorothy/3 中 ，X、Y 和 Zz 分 别 为 1ion、tiger 和 bear。 
在 规则 twin_cats/2 中 ，X 是 cat，Y 也 是 cat。 我 们 可 以 使 用 这 个 知识 库 来 解释 一 下 合 一 。 

首先 ， 使 用 第 一 个 规则 。 我 移 编 译 ， 然 后 执行 一 个 不 市 参数 的 简单 查询 。 


| ?- dorothy(lion, tiger, bear). 


yes 

记 住 ， 合 一 的 意思 是 “ 找 出 那些 使 规则 两 侧 匹 配 的 值 ”。 在 右 侧 ，Prolog 将 X、Y 和 Z 分 别 绑 定 
为 1ion、tiger 和 bear。 这 些 值 与 左 侧 相应 的 值 匹配 ， 所 以 合 一 是 成 功 的 。Prolog 报 告 yes。 这 
个 例子 非常 简单 ， 不 过 可 以 为 它 再 增加 点 趣味 。 合 一 在 规则 的 两 侧 都 能 工作 。 

| ?- dorothy(One, Two, Three). 





One = 11ion 

Three = bear 

Two = tiger 

yes 

这 个 例子 多 了 一 个 间接 层 。 在 子 目 标 中 ，Prolog 使 得 X、Y 和 Zz 分 别 与 1ion、tiger 和 bear 合 
一 。 在 左 侧 ，Prolog 使 得 X、Y 和 Z 分 别 与 one、Two 和 Three 合 一 ， 然 后 报告 结 

现在 ， 让 我 们 转 到 最 后 那 条 规则 twin_cats/2。 这 条 规则 说 如 果 你 能 证 明 X 和 Y 都 是 cat， 那 
么 这 条 规则 就 为 真 。 试 一 下 : 


| ?- twin_cats(One, Two). 





O 〇 


One 11on 
Two 1ion ? 


Prolog 报 告 了 第 一 种 可 能 。1ion 和 1ion 都 是 cat。 我 们 来 看 一 下 它 是 如 何 得 到 这 个 结果 的 。 

(1) 我 们 发 起 查询 twin_cats(One，Two) 。Prolog 将 One 绑 定 到 X， 将 Two 绑 定 到 Y。 要 处 理 这 
个 查询 ，Prolog 必 须 从 下 述 这 些 目标 开始 。 

(2) 第 一 个 目标 是 cat(X) 。 

(3) 我 们 有 两 个 事实 用 于 匹配 ，cat(1ion) 和 cat(tiger)。Prolog 尝 试 第 一 个 事实 ,将 X 绑 定 
到 1ion， 然 后 继续 下 一 个 目标 。 

(4) Prolog 现 在 绑 定 Y 到 cat(Y) 。Prolog 使 用 与 处 理 第 一 个 目标 完全 相同 的 办 法 处 理 这 个 目标 ， 
选择 1ion。 

(5) 我 们 已 经 满足 了 两 个 目标 ， 所 以 这 个 规则 为 真 。Prolog 报 告 可 以 让 规则 为 真 的 One 和 Two 
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的 值 ， 并 且 报 告 yes。 

这 样 , 我们 有 了 第 一 个 使 规则 为 真 的 解决 方法 。 有 些 时 候 , 一 个 解决 方法 就 足够 了 。 但 有 些 
时 候 ， 一 个 解决 方法 可 能 不 够 用 。 现 在 可 以 使 用 “;” 符 号 逐个 得 到 其 余 的 解决 方法 ， 也 可 以 输 
入 a 来 获得 剩余 的 所 有 解决 方法 。 


Two = 1ion ? a 











One = 11on 
Two = tiger 
One = tiger 
Two = 11ion 
One = tiger 
Two = tiger 
(1 ms) yes 





注意 ， 给 定 目标 和 相应 事实 中 可 用 的 信息 ，Prolog 将 可 以 列 出 X 和 Y 所 有 可 能 的 组 合 。 正 如 你 
将 在 后 面 看 到 的 那样 ， 合 一 也 能 够 进行 一 些 基 于 数据 结构 的 复杂 匹配 。 第 一 天 的 学 习 很 充分 了。 
我 们 将 在 第 二 天 完成 一 些 更 有 难度 的 工作 。 














4.2.5 实际 应 用 中 的 Prolog 


通过 这 种 方式 呈现 一 个 “程序 ”不 免 让 人 心 生 不 安 。 在 Prolog 中 ， 很 少 会 有 一 份 说 明 详细 步 
又 的 毫 饪 食谱 ， 你 完成 时 只 能 看 到 一 份 对 平底 锅 中 重 糕 的 摘 述 。 当 我 学 习 Prolog 时 ， 与 一 些 在 实 
际 工 作 中 使 用 Prolog 的 人 的 交谈 极 大 地 帮助 了 我 。 我 曾 同 Brian Tarbox 交 谈 过 ,他 在 一 个 研究 项 目 
中 使 用 这 门 逻 辑 语 言 为 海豚 人 研究 进行 日 程 安排 。 

Brian Tarbox 访 谈 录 

Bruce: 可 以 谈 谈 你 学 习 Prolog 的 经 历 吗 ? 

Brian: 我 的 Prolog 学 习 要 追溯 到 20 世 纪 80 年 代 末 期 ， 那 时 我 就 读 于 马 诺 阿 (Manoa ) 的 夏 威 
丙 大 学 研究 生 院 。 我 在 Kewalo 贫 地 海洋 哺乳 动物 实验 室 研究 宽 吻 海豚 (bottlenosed dolphins ) 的 
认 知 能 力 。 那 时 , 我 注意 到 实验 室 中 的 多 数 讨 论 都 与 海豚 是 如 何 思 考 的 理论 有 关 。 我 们 主要 与 一 
个 名 为 Akeakamai， 简 称 Ake 的 海豚 一 起 工作 。 很 多 讨论 都 以 “ 嗯 ，Ake 可 能 看 到 了 这 样 的 情况 ” 作 
为 开始 。 

我 决定 在 我 的 硕士 论文 中 尝试 建立 一 个 可 执行 的 模型 ， 用 于 匹配 我 们 对 Ake 理 解 世 界 的 能 
的 判断 ， 或 者 至 少 是 匹配 我 们 所 研究 的 判断 的 一 个 小 子 集 。 如 果 我 们 的 可 执行 模型 可 以 预测 Ake 
的 实际 行为 ， 我 们 将 对 我 们 的 海豚 思考 理论 更 有 信心 。 

Prolog 是 一 门 奇 妙 的 语言 ， 但 它 总 是 会 给 出 一 些 非常 奇怪 的 结果 。 我 记得 第 一 次 尝试 使 用 
Prolog 时 的 情形 ， 我 试 着 写 出 一 行 类 似 x = x + 1I 的 代码 。Prolog 回 应 no。 其 他 编程 语言 一 般 不 
会 说 no，, 而 是 会 给 出 一 些 错误 答案 或 提示 编译 失败 , 但 是 我 从 来 没有 见 过 一 门 语言 回话 给 我 。 所 
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以 我 致电 Prolog 的 技术 支持 说 : 当 我 尝试 修改 一 个 变量 值 的 时 候 ， 这 门 语 言 对 我 说 “no”。 他 们 
问 我 “为 什么 想 修 改 一 个 变量 的 值 ? “我 的 意思 是 ,什么 样 的 语言 不 允许 你 修改 一 个 变量 的 值 呢 ? 
一 旦 你 深入 了 解 Prolog， 你 就 会 理解 变量 要 么 具有 特定 值 ， 要 么 处 于 未 绑 定 状 态 ， 但 在 当时 我 确 
实 是 丈 二 和 尚 摸 不 着 头脑 。 

Bruce: 你 是 怎么 使 用 Prolog 的 ? 

Brian: 我 开发 了 两 个 主要 的 系统 : 海豚 模拟 器 和 一 个 实验 室 日 程 安排 程序 。 实 验 室 每 天 都 
对 四 个 海豚 分 别 进行 四 个 实验 。 你 必须 明白 用 于 研究 的 海豚 是 极为 有 限 的 资源 。 每 个 海豚 用 于 不 
同 的 实验 并 且 每 个 实验 需要 的 人 员 配 置 各 不 相同 。 一 些 角色 ， ee 只 可 能 由 少数 人 承 
担 。 其 他 角色 ， 如 数据 记录 员 则 可 以 由 很 多 人 完成 ,不 过 也 需要 经 过 培训 。 大 多 数 实验 需要 六 到 
十 几 名 工作 人 员 。 我 们 有 研究 生 、 PO a 
和 各 自 的 技能 ,找到 一 个 可 以 利用 每 个 人 并 且 确 保 所 有 任务 完成 的 时 间 安 排 成 为 了 一 名 工作 人 员 
的 专职 工作 。 

我 决定 党 试 实 现 一 个 基于 Prolog 的 日 程 安排 生成 器 。 结 果 证 明 这 简直 就 是 一 个 为 这 门 语 言 
身 定做 的 问题 。 我 建立 一 组 事实 ， ww ye Re 
之 后 我 就 可 以 简 诗 告诉 Prolog 我 要 这 么 做 ”。 对 于 一 个 实验 中 列 出 的 每 个 任务 ， 这 门 语 言 都 可 
以 找 出 一 个 具备 所 需 技 能 且 空 闲 的 人 ， 并 将 他 与 那个 任务 相 绑 定 。 它 继续 向 后 找 ， 直 到 要 么 满足 
实验 的 需求 ， 要 么 无 法 满足 。 如 果 它 无 法 找到 一 个 有 效 的 pn 它 将 撤销 上 一 个 绑 定 并 再 次 党 试 
另外 一 种 组 合 。 最 后 ， 它 要 么 找到 一 个 有 效 的 安排 ， 要 么 报告 这 个 实验 限制 过 多 。 

Bruce: 是 否 有 一 些 与 海豚 相关 的 事实 、 规 则 或 者 断言 ee 的 读者 也 很 有 意义 ? 

Brian: 我 记得 曾经 有 一 次 海豚 模拟 器 帮助 我 们 理解 了 Ake 的 实际 行为 。Ake 对 一 套 手 势 标 
记 语 言 有 有 反应， 这 套 语言 包含 诸如 “和 钻 圈 ”或 “用 尾巴 打 右 边 的 球 ”等 句子 。 我 们 给 它 发 指令 ， 
它 就 会 有 回应 。 

我 的 研究 就 包括 训练 海豚 理解 诸如 not 这 样 的 新 单词 。 在 这 种 背景 下 ，“touch notball” 意 思 
是 除了 球 之 外 可 以 触 磁 任何 东西 。 对 于 Ake 来 说 这 是 一 个 很 难 解决 的 问题 ， 不 过 这 个 研究 还 是 顺 
利 地 进展 了 一 段 时间 。 | 无 论 我 们 何 时 给 它 下 指令 ， 它 开始 都 仅 是 沉 入 在 水 下 。 我 们 
se 译 。 这 是 一 个 非常 令 人 彰 吕 的 情况 ,因为 你 无 法 问 一 个 海豚 它 为 什么 要 

么 做 。 所 gh 练 任 务 交 给 了 海豚 模拟 器 并 且 得 到 了 一 个 有 趣 的 结果 。 虽 然 海豚 非常 
们 通常 会 找 最 简单 的 答案 来 回答 问题 。 我 们 海豚 模拟 器 拥有 同样 的 启发 式 方法 。 结 果 
em 含 了 一 个 描述 池塘 中 某 扇 窗户 (window ) 的 单词 。 大 多 驯养 师 忘 记 了 这 个 
词 ， 因 为 它 极 少 使 用 。 海 豚 模 拟 器 发 现 了 这 个 规则 ， 即 window 有 是 对 not ball 的 一 个 成 功 的 回应 。 
它 也 是 not hoop、not pipe 以 及 notfrisbee 的 成 功 回 应 ,我 们 曾 多 次 尝试 通过 改变 池塘 中 的 其 他 物件 
组 合 来 防范 这 种 模式 ， 不 过 很 显然 我 们 无 法 移动 窗户 。 结 果 证 明 当 Ake 沉 入 池塘 底部 时 ， 它 的 位 
置 紧 令 窗户， 虽然 我 无 法 看 见 窗户 。 

Bruce: 关于 Prolog， 你 最 喜欢 它 哪 一 点 呢 ? 

Brian: 声明 式 的 编程 模型 非常 有 魅力 。 一 般 来 说 ， 如 果 你 能 把 问题 描述 出 来 ， 你 就 可 以 解 
决 这 个 问题 。 在 绝 大 多 数 语言 中 ， 某 些 时 候 我 发 现 自 己 是 在 与 计算 机 争论 : “你 知道 我 的 意思 ， 
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就 这 么 做 吧 。”C 和 C++ 编译 器 错误 ， 诸 如 “缺少 分 号 ”， 都 是 这 场 和 争论 的 表象 。 如 果 缺 少 分 号 ， 
那 就 插入 一 个 分 号 看 看 是 否 修正 了 这 个 问题 。 在 Prolog 中 ， 为 了 解决 日 程 安排 问题 ， 我 要 做 的 仅 
仅 是 简单 地 说 : “我 想 要 一 个 像 这 样 的 一 天 ， 去 给 我 安排 吧 。” 然 后 Prolog 就 会 去 替 我 安排 。 

Bruce: 什么 让 你 觉得 最 麻烦 ? 

Brian: Prolog 看 起 来 似乎 是 以 一 种 要 么 全 有 要 么 全 无 的 方式 去 解决 问题 ， 或 者 至 少 在 我 处 理 
的 问题 上 是 这 样 的 。 在 实验 室 日 程 安排 的 问题 上 ， 这 个 系统 会 花费 30 分 钟 处 理 ， 然 后 要 么 给 出 一 
个 出 色 的 上 日程 安排 ， 要 么 简单 地 打印 ho。 在 这 里 no 的 意思 是 我 们 的 限制 过 度 了 ,没有 一 个 完满 的 
解决 方法 了 。 不管 怎样 ， 它 没有 给 我 们 一 个 不 完整 的 解决 方法 或 者 给 出 任何 有 关 哪 里 有 过 度 限 制 
的 信息 。 

你 在 这 里 看 到 的 是 一 个 极其 强大 的 概念 。 你 无 需 描 述 问 题 的 解决 方案 。 你 只 需 描述 问题 即 可 。 
并 且 这 门 语言 使 用 逻辑 描述 问题 ， 只 是 用 纯 逻 辑 。 从 事实 和 推论 开始 ， 让 Prolog 完 成 剩余 工作 。 
Prolog 程 序 抽象 层次 更 高 。 调 度 和 行为 模式 都 是 Prolog 最 为 擅长 处 理 的 问题 。 

















4.2.6 ”第 一 天 我 们 学 到 了 什么 


今天 ， 我 们 学 到 了 Prolog 语 言 的 基本 构造 结构 。 我 们 使 用 纯 逻 辑 对 知识 进行 编码 ， 而 不 是 编 
写 每 步 操作 去 指导 Prolog 形 成 解决 方法 。Prolog 承 担 将 知识 编织 起 来 并 查找 解决 方法 的 壹 重工 作 。 
我 们 将 逻辑 放 入 知识 库 并 发 起 有 针对 性 的 查询 。 

在 建立 一 些 知 识 库 后 ， 就 可 以 编译 和 发 起 查询 了 。 查 询 有 两 种 形式 ， 第 一 种 ,查询 中 指定 一 
个 事实 , Prolog 将 告诉 你 这 个 事实 是 真 还 是 假 。 第 二 种 ,在 查询 中 使 用 一 个 或 更 多 变量 , 然后 Prolog 
将 计算 出 可 以 使 事实 为 真 的 所 有 可 能 性 。 

我 们 了 解 到 ，Prolog 执 行规 则 时 是 按 顺 序 执 行规 则 中 的 子 句 。 对 于 每 个 子 句 ，Prolog 都 会 答 
试 所 有 可 能 的 变量 组 合 来 满足 每 个 子 目 标 。 所 有 Prolog 程 序 都 是 这 么 工作 的 。 

在 下 一 节 中 ， 你 将 看 到 一 些 更 复杂 的 推论 。 我 们 将 在 学 习 中 使 用 数学 和 更 复杂 的 数据 结构 ， 
比如 列表 ， 同 时 还 要 学 习 迭 代 列 表 的 策略 。 









































4.2.7 ”第 一 天 自习 


找 

口 一 些 免 费 的 Prolog 教 程 。 

口 一 个 技术 论坛 (有 许多 )。 

口 一 个 你 正在 使 用 的 Prolog 版 本 的 在 线 参 考 。 
做 











口 建立 一 个 简单 的 知识 库 。 描 述 一 些 你 最 喜欢 的 书籍 和 其 作者 。 

口 找 出 知识 库 中 菏 位 作者 编写 的 所 有 书籍 。 

口 建立 一 个 摘 述 音乐 家 和 乐 希 的 知识 库 ， 同 时 也 描述 出 音乐 家 以 及 他 们 的 音乐 风格 。 
口 找 出 所 有 使 用 吝 他 的 音乐 家 。 
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《 雨 人 》 中 的 主角 烽 迷 于 The People Coxrt 中 的 那个 脾气 暴 燥 的 瓦 普 纳 (Wapner ) 法 官 。 和 
多 数目 财 证 患者 一 样 ，Raymond 痢 迷 所 有 康 悉 的 事物 。 他 绰 看 要 看 瓦 普 纳 法 家 和 77e People*s 
Court。 当 六 禁地 完成 这 门 奇 妙语 言 的 学 习 后 ， 你 也 许 已 经 做 好 悦 然 大 悟 的 准备 了 。 现 在 ， 你 也 
许 就 是 那个 懂 然 大 悟 的 柱 运 读者 ， 不 过 如 果 你 不 是 ， 也 请 打 起 精神 来 今天, 一 定 有 “ 离 瓦 普 纳 
法 官 开演 还 有 1 分钟” 的 时 刻 。 坐 好 。 我 们 的 工具 箱 里 还 需要 一 些 工 具 。 你 将 学 到 如 何 使 用 递归 
和 列表 并 进行 数学 运算 。 让 我 们 开始 吧 。 














4.3.1 ”如 归 


Ruby 和 Io 是 命令 式 编程 语言 。 你 需要 清楚 地 说 明 一 个 算法 的 每 一 步 。Prolog 是 我 们 看 到 的 第 
一 门 声明 式 编程 语言 。 当 你 处 理事 物 集合 时 ， 如 列表 或 树 ， 你 会 经 常 使 用 递归 而 不 是 迭代 。 我 们 
将 学 习 递 归并 使 用 它 解决 一 些 包含 基本 推论 的 问题 。 接 下 来 我 们 会 将 相同 的 技术 运用 到 列表 和 数 
学 运算 上 去 。 

看 一 看 下 面 的 数据 库 。 它 表示 了 沃 尔 顿 家 族 的 全 部 家 谱 , 他 们 都 是 1963 年 的 一 部 电影 及 其 后 
续 系 列 影片 中 的 角色 。 这 个 库 表 示 了 一 种 父子 关系 以 及 由 此 推断 出 的 祖先 关系 。 由 于 一 个 祖先 可 
能 是 一 个 父亲 、 祖 父 或 曾祖 父 ， 所 以 需要 骸 套 使 用 规则 或 使 用 迭代 。 由 于 使 用 的 是 一 门 声 明 式 语 
言 ,因此 将 使 用 舱 套 规则 。 在 ancestor 子 句 中 的 一 个 子 句 会 使 用 ancestor 子 句 。 在 这 个 例子 中 ， 
ancestor(Z，Y) 是 一 个 递归 的 子 目 标 。 下 面 是 这 个 知识 库 : 


prolog/family.pl 























father (zeb, john_boy_sr). 
father(john_boy_sr, john_boy_jr). 


ancestor(X, Y) :- 
father(X, Y). 
ancestor(X, Y) :- 
father(X, 2Z2), ancestor(Z, Y). 


father 是 实现 递归 子 目 标的 核心 事实 。 规 则 ancestor/2 有 两 个 子 句 。 如 果 一 个 规则 由 多 个 
子 句 组 成 , 那么 其 中 一 个 子 句 为 真 , 则 这 个 规则 为 真 。 把 子 句 间 的 逗号 看 成 是 条 件 “ 与 ”的 关系 ， 
把 子 句 之 间 的 句号 看 成 是 条 件 “ 或 ”的 关系 。 第 一 个 子 句 表 明 “ 如 果 X 是 Y 的 father， 那 么 X 是 Y 
的 ancestor”。 这 是 一 个 直接 关系 。 我 们 可 以 测试 一 下 这 个 规则 : 


| ?- ancestor(]john_boy_ sr，john_boy_jr)， 





true 7? 


no 
Prolog 报 告 为 真 ，john_boy_sr 是 john_boy_jr 的 ancestor。 第 一 个 子 句 取决 于 一 个 事实 。 
第 二 个 子 句 更 为 复 林 : ancestor(X, Y) :- father(X，Z) ，ancestor(Z，Y)。 这 个 子 句 
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表明 如 采 我 们 可 以 证 明 X 是 Z 的 father 并 且 同 一 个 Z 是 Y 的 一 个 ancestor ， 那 么 X 就 是 Y 的 一 个 
ancestor。 

我 们 测试 第 二 个 子 句 : 

| ?- ancestor(zeb, john_boy_jr). 

true ? 

是 的 ，zeb 是 john_boy_jr 的 一 个 ancestor。 和 以 往 一 样 ， 我 们 可 以 在 查询 中 使 用 变量 : 


| ?- ancestor(zeb, Who). 





Who = John boy sr ? a 
Who = John_ boy_ Jr 


no 
我 们 看 到 zeb 是 john_boy_jr 和 john_pboy_sr 的 一 个 共同 ancestor。 这 个 ancestor 谓 词 也 


可 以 反 过 来 用 : 


| ?- ancestor(Who, john_boy_]jr). 





Who = john boy sr ? a 
Who = zeb 


(1 ms) no 

这 太美 妙 了 ， 我 们 可 以 在 知识 库 中 使 用 这 个 规则 实现 两 个 目的 : 寻找 祖先 和 后 代 。 

下 面 是 一 段 简短 的 警告 。 当 你 使 用 递归 子 目 标 时 ， 你 需要 小 心 。 因 为 每 个 递归 的 子 目标 都 会 
使 用 栈 空间 ， 最 终 你 很 可 能 会 耗 尽 栈 空间 。 声 明 式 语言 通 稼 使 用 一 种 称 为 尾 递归 优化 〈tail 
recursion optimization ) 的 技术 来 解决 这 个 问题 。 如 果 你 将 一 个 递归 的 子 目 标 放 到 递归 规则 的 末尾 ， 
Prolog 会 通过 丢弃 调用 栈 来 优化 这 次 调用 ， 并 保持 内 存 占 用 不 变 。 这 里 的 调用 就 是 一 个 尾 递 归 ， 
为 递归 子 目 标 ancestor(Zz，Y) 是 递归 规则 中 的 最 后 一 个 目标 。 如 果 你 的 Prolog 程 序 因 耗 尽 栈 
空间 而 朋 尝 的 话 ， 那 么 就 应 该 知道 是 时 候 使 用 尾 递 归 对 程序 进行 优化 了 。 

最 后 那 点 整理 工作 已 经 解决 了 ， 让 我 们 开始 看 看 列表 和 元 组 。 


4.3.2 ”列表 和 元 组 


列表 和 元 组 是 Prolog 的 重要 组 成 部 分 。 你 可 以 像 [L，2，3] 这 样 指定 一 个 列表 ， 像 (1，2，3) 
这 样 指定 一 个 元 组 。 列 表 是 变 长 容 角 ， 而 元 组 则 是 定 长 容 般 。 当 你 从 合 一 的 角度 考 感 时 ， 列 表 和 
元 组 都 会 变 得 更 加 强大 。 






































全 一 一 


记 住 ， 当 Prolog 对 变量 进行 合 一 操作 时 ， 它 会 尝试 使 左右 两 侧 相 匹配 。 如 有 果 两 个 元 组 拥有 的 
元 率 数 量 相同 有 旦 每 个 元 系 可 以 合 一 ， 则 它们 就 可 以 匹配 。 看 看 下 面 几 个 例子 。 
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了 (1 2， 3) 一 (C15 2， 3 


yes 
| 入 时 2， 3) 一 [I 2， 3, 4). 


no 
| ?= (1,， 2 3) = (3, 2 I 


no 

如 果 两 个 元 组 的 所 有 元 素 可 以 合 一 , 则 这 两 个 元 组 可 以 合 一 。 第 一 对 元 组 精确 地 匹配 ,第 二 
对 元 组 由 于 拥有 的 元 素数 量 不 同 而 无 法 匹配 ,第 三 对 元 组 则 因 元 素 顺 序 不 同 而 无 法 匹配 。 接 下 来 
加 入 一 些 变量 : 

I (A 

















A 
B 


中 | 
[BS) 


一 
CD 
\ Un 
| 

一 

一 

[BS 

(LA 

/ 

| 


一 


站 WD 
中 中 外 
WP 


= < 
CD 
OU 


去 (A, 2 C) = CIs B ， ”3 


业 
2 
3 


CO 
中 由 4 


yes 

变量 在 哪 一 侧 没 有 关系 。 如 有 果 Prolog 认 为 它们 相同 , 它们 就 可 以 合 一 。 现 在, 看 看 一 些 列表 ， 
它们 与 元 组 的 用 法 相同 : 

I 





J 
| 
r 一 
卢 " 


y 2 3] = [X， Ye | 


| ?= [2. 2 3] 二 [X， X, al 
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X 三 "2 
过 三 "3 
yes 


re es 


No 


| = tee 

最 后 两 个 例子 很 有 趣 。[X，X，Z] 和 [2，2，3] 可 以 合 一 ， 因 为 Prolog 设 置 X = 2 后 可 以 使 它 
们 相同 。[1，2，3] = [X，X，Z] 不 能 合 一 ， 因 为 X 同 时 用 在 第 一 个 和 第 二 个 元 素 位 置 上 ， 但 两 
个 元 素 的 值 不 同 。 列 表 拥 有 一 项 元 组 所 不 具备 的 能 力 ， 即 你 可 以 通过 [Head1Tai1] 解 构 列 表 。 当 
你 将 一 个 列表 与 这 种 结构 合 一 时 ，Head 将 绑 定 列表 的 第 一 个 元 素 ， 而 Tai1 将 绑 定 剩余 元 素 ， 像 
这 样 : 


| ?- [a，b，c]j = [Head|Tal11j . 














Head = a 
Tail = [b,c] 
yes 





[Head1Tai1] 不 能 与 一 个 空 列 表 合 一 ， 不 过 单元 素 列 表 可 以 。 
| ?- [] = [Head|Tai1]. 


| ?- [a] = [Head|Taill]. 


a 
[] 
yes 


你 可 以 使 用 各 种 复杂 的 组 合 : 
| ?- [a，b，c] = [alTai1]. 


Ta [pej 


(1 ms) yes 
Prolog 匹 配 a， 并 将 剩余 部 分 与 Tai1 合 一 。 或 者 可 以 将 这 个 Tai1 再 拆 分 成 Head 和 Tai 1 : 
| ?- [a, b, c] = [al[lHead|Ta1il]]. 





Head = b 
Tail = [cj 
yes 


或 抓 取 第 三 个 元 素 : 
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ab ed el = [ee [Neadl el: 
Head = < 


yes 

“_” 是 一 个 通配符 ， 它 可 以 与 任何 对 象 合 一 。 大 体 上 它 的 含义 是 :“ 我 不 关心 这 个 位 置 上 的 
元 率 是 什么 。” 我 们 告诉 Prolog 略 过 前 两 个 元 率 ， 将 剩余 元 率 拆 分 为 Heaad 和 Tai1。Head 将 抓 取 第 
三 个 元 素 ,， 末尾 的 _ 将 抓 取 Tai1， 并 忽略 列表 的 其 余 元 素 。 

掌握 上 述 内 容 后 ， 你 就 可 以 开始 工作 了 。 合 一 是 一 个 功能 强大 的 工具 。 将 它 与 列表 和 元 组 结 
合 在 一 起 会 使 它 变 得 更 为 强大 。 

现在 ， 你 应 该 基本 掌握 了 Prolog 中 的 核心 数据 结构 以 及 合 一 的 工作 方式 。 现 在 我 们 准备 将 这 
些 与 规则 和 断言 结合 在 一 起 ， 使 用 逻辑 解决 一 些 基本 数学 运算 问题 。 


4.3.3 ”列表 与 数学 运算 


在 接 下 来 的 例子 中 , 我 会 回 你 展示 在 列表 上 使 用 递归 和 数学 运算 。 这 些 例子 包括 计数 、 汇 总 
和 求 平均 值 。 这 里 用 五 个 规则 来 完成 所 有 这 些 困 难 的 工作 。 


prolog/list_math.pl 























count(O0, []). 


count(Count, [Head|Tail1l]) :- count(TailCount, Tail), Count 1s TailCount + 1. 

sum(0, []). 

sum(Total, [Head|Ta1i11l]) :- sum(Sum, Ta1l), Total is Head + Sunm. 

average(Average, List) :- sum(Sum, List), count(Count, List), Average 1s Sum/Count. 


最 简单 的 例子 是 count， 可 以 像 下 面 这 样 使 用 它 : 


| ?- count(What, [1]). 
What = 17?;，; 


no 
这 些 规则 很 简单 。 对 一 个 空 列表 计数 结果 为 0。 一 个 非 空 列表 的 计数 等 于 对 列表 Tai1 的 计数 
加 上 1。 下 面 逐 步 说 明 它 的 工作 方式 。 

口 发 起 查询 count (What，,，[1])， 由 于 列表 非 空 ， 无 法 与 第 一 个 规则 合 一 。 我 们 继续 满足 第 
二 个 规则 count (Count，[Head|Tai1]) 中 的 目标 。 进 行 合 一 操作 ，What 绑 定 为 Count， 
Head 绑 定 为 1，Tai1 绑 定 为 口 。 

D 合 一 后 ， 第 一 上 日 标 变 为 count (Tai1Count, [])。 我 们 尝试 证 明 这 个 子 目标 。 这 次 ， 我 们 
与 第 一 条 规则 进行 合 一 。Tai1Count 绑 定 为 0。 现 在 第 一 个 规则 满足 了 ， 所 以 接 下 来 处 理 
第 二 个 目标 。 

口 现在 ， 对 Count 的 求 值 为 Tai1Count + 1。 我 们 可 以 合 一 变量 。Tai1Count 绑 定 为 0， 
此 将 Count 绑 定 为 0+1 或 1。 
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就 是 这 样 。 我 们 没有 定义 递归 过 程 ， 只 是 定义 了 逻辑 规则 。 下 一 个 例子 是 对 列表 中 的 元 素 求 
下 面 是 这 些 规则 的 源 代 码 : 
sum(O, []). 
sum(Total, [Head|Tail]) :- sum(Sum, Tai1l), Total 1s Head + Sum. 
这 段 代码 与 count 规 则 的 工作 方式 十 分 类 似 。 它 也 包含 两 个 子 句 ， 一 个 基本 情况 和 一 个 递归 
情况 。 用 法 是 相似 的 : 

| ?- sum(What, [1, 2，3]). 


和 


O 





What =67?7;，; 


no 

如 果 你 用 命令 式 的 视角 看 竺 它 的 话 ，sum 工 作 方式 确实 满足 了 你 对 递归 声言 的 期 望 。 空 列表 
的 总 和 是 0， 其 余 元 素 的 总 和 是 列表 的 Head 元 素 加 上 Tail1 的 总 和 。 

但 是 这 里 还 有 另外 一 个 解释 。 我 们 并 没有 真正 告诉 Prolog 如 何 计算 总 和 。 我 们 只 是 将 sum 描 
述 为 规则 和 一 些 目标 。 为 了 满足 其 中 部 分 目标 ,逻辑 引擎 必须 满足 一 些 子 目标 。 声 明 式 的 解释 是 
这 样 的 :“ 一 个 空 列表 的 总 和 是 0， 如 宁可 以 证 明 列 表 Tai1 的 总 和 加 上 Head 是 Total1, 那么 列表 的 
总 和 就 是 Total。 我 们 用 证 明 目 标 和 子 目标 的 想法 答 换 了 递归 过 程 。 

同样 ， 空 列表 的 计数 为 0。 非 空 列表 的 计数 为 列表 的 Head 加 上 列表 Tai1 的 计数 值 。 

如 同 逻 辑 一 样 ， 这 些 规 则 可 以 彼此 依赖 。 例 如 ,你 可 以 将 sum 和 count 一 起 用 于 计算 平均 值 。 

average(Average, List) :- sum(Sum, List), count(Count, List), Average 1s Sum/Count. 

这 样 ，List 的 平均 值 为 Average， 如 果 你 可 以 证 明 : 

口 List 的 总 和 是 Sum 

D List 的 计数 是 Count， 并 且 

口 Average 是 Sum/Count 

它 的 工作 方式 和 你 预计 的 一 样 : 

| ?- average(What, [1, 2，3]). 


























What = 2.0 ? 


No 


4.3.4 在 两 个 方向 上 使 用 规则 


说 到 这 里 ， 你 应 该 很 好 地 理解 了 递归 是 如 何 工 作 的 了 。 我 将 改变 一 些 节 奏 ,， 讨 论 一 个 被 称 为 
append 的 规则 。 如 果 List3 为 ListL+List2， 那 么 规则 append(List1，List2，List3) 为 真 。 
这 是 一 个 功能 强大 的 规则 ， 你 可 以 通过 多 种 方式 使 用 它 。 

这 些 简 短 的 代码 放 在 一 起 将 构成 强大 的 功能 , 你 可 以 通过 多 种 不 同方 式 使 用 它们 。 下 面 是 一 
个 测 谎 需 : 
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| ?- append([o11], [water], [oi11, water]). 


yes 
| ?- append([oil], [water], [oil, slick]). 


no 
下 面 是 一 个 列表 构造 名 : 
| ?- append([tiny], [bubbles], What). 


What = [tiny,bubbles] 


yes 
下 面 的 代码 用 于 列表 减法 操作 : 


| ?- append([dessert topping], Who, [dessert topping, floor_ waxj] ) . 





下 面 的 代码 用 于 计算 出 可 能 的 排列 : 


| ?- append(One, Two, [apples, oranges, bananas]). 


One = [] 

Two = [apples,oranges,bananas] ? a 
One = [apples] 

Two = [Loranges,bananas] 

one = [Lapples,orangesj 

Two = [bananas |】 

One = [apples,oranges,bananas] 

Two = [] 

(1 ms) no 








一 个 规则 给 了 你 四 种 能 力 。 你 也 许 在 想 , 构造 这 样 一 个 规则 可 能 需要 用 很 多 代码 。 接 下 来 看 
看 究 苋 需要 多 少 。 重 新 实现 Prolog 的 append， 不 过 将 它 称 之 为 concatenate。 我 们 将 通过 如 下 几 
个 步骤 完成 。 

(1) 编写 一 个 规则 concatenate(List1，List2，List3)， 它 可 以 将 一 个 空 列 表 与 List1 连 
接 在 一 起 。 

(2) 添加 一 个 规则 ， 它 可 以 将 List1 中 的 一 个 元 系 与 List2 连 接 在 一 起 。 

(3) 添加 一 个 规则 ， 它 可 以 将 List1 中 的 两 个 元 素 或 三 个 元 系 与 List2 连 接 在 一 起 。 

(4) 看 看 我 们 可 以 泛 化 哪些 东西 。 

让 我 们 开始 吧 。 第 一 步 是 将 一 个 空 列 表 与 List1 连 接 在 一 起 。 这 是 一 个 极其 容易 编写 的 规则 : 
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prolog/concat_step_1.pl 
concatenate([|], List, List). 

没 问题 。 如 果 第 一 个 参数 是 一 个 列表 ， 并 且 后 两 个 参数 相同 ， 则 concatenate 为 真 。 
它 可 以 正 稼 工作 : 

| ?- concatenate([], [harry], What). 





What = [harryl] 


yes 
下 一 步 。 我 们 添加 一 个 规则 ， 将 Listil 的 第 一 个 元 素 连 接 到 List2 的 前 面 。 
prolog/concat_step_2.pl 


concatenate([], List, List). 
concatenate([Head|[]], List, [Head|List]). 


对 于 concatenate(List1，List2，List3) ， 我 们 将 List1 分 成 Head 和 Tai1， 其 中 Tai1 是 
一 个 空 列表 。 我 们 将 第 三 个 元 素 分 成 Head 和 Tai1， 将 List1 的 Head 和 List2 放 在 一 起 作为 Tai1。 4 
记得 编 详 知识 库 。 它 工作 得 很 好 : 


| ?- concatenate([malfoy], [potter], What). 
What = [malfoy,potter] 


yes 
现在 ， 可 以 定义 另外 两 个 规则 以 连接 长 度 为 2 和 3 的 列表 。 它 们 以 同样 的 方式 工作 : 
prolog/concat_step_3.pl 


concatenate([], List, List). 

concatenate([Head|[]], List, [Head|List]). 

concatenate([Headil|[Head2|[]]], List, [Headl, Head2 |List]). 
concatenate([Headl1|[Head2|[Head3|[]]j]], List, [Headl, Head2, Head3|List]). 


| ?- concatenate([malfoy, granger], [potter], What). 
What = [malfoy,granger,potter] 


yes 
我 们 这 里 看 到 的 只 是 一 个 基本 情况 和 基本 策略 ， 即 每 个 子 目 标 缩小 第 一 个 列表 , 增加 第 三 个 
列表 。 第 二 个 列表 保持 不 变 。 现 在 我 们 有 足够 信息 去 泛 化 一 个 结果 。 下 面 是 使 用 了 舰 套 规则 的 


Concatenate: 








prolog/concat.pl 


concatenate([], List, List). 
concatenate([Head|Ta1i1l1], List, [Head|Tai12]) :- 
concatenate(Taill, List, Tail2). 
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这 个 简洁 的 代码 块 有 个 令 人 难以 置信 的 简单 解释 。 第 一 个 子 句 表明 将 一 个 空 列表 与 List 连 
接 在 一 起 ， 而 你 将 得 到 那个 List。 第 二 个 子 句 表明 如 果 List1l 和 List3 的 Head 相 同 ， 并 且 你 可 以 
证 明 将 List1 的 Tai1 和 List2 连 接 在 一 起 将 得 到 List3 的 Tai1, 那么 将 List1 和 List2 连 接 在 一 起 
将 会 得 到 List3。 这 个 解决 方法 的 简单 和 优雅 是 Prolog 强 大 功能 的 实际 证 明 。 
接 下 来 看 看 针对 查询 concatenate([1，2] ，[3] ，What) 它 将 做 什么 。 我 们 将 执行 每 一 步 
的 合 一 操作 。 记 住 这 里 使 用 的 是 明 套 规则 , 所 以 每 次 设法 证 明 一 个 子 目 标 时 ， 都 会 有 一 份 不 同 的 
变量 副本 。 我 将 用 一 个 字母 标记 出 重要 的 变量 ， 以 便于 你 理解 这 个 规则 。 当 Prolog 洋 试 去 证 明 下 
一 个 子 目 标 时 ， 我 都 会 回 你 展示 发 生 了 什么 。 
口 用 这 个 开始 : 
concatenate([1,2], [3], What) 
D 第 一 个 规则 没有 使 用 ， 因 为 [1, 2] 不 是 一 个 空 列表 。 执 行 合 一 操作 后 得 到 下 面 这 个 结果 : 
concatenate([1|[2]], [3], [ljTail2-A]:-concatenate([2], [3], Ta1il2-A] 
除了 第 二 个 Tai1 外 ， 所 有 都 合 一 了 。 我 们 现在 处 理 这 个 目标 。 对 右 侧 进行 合 一 操作 。 
口 我 们 答 试 应 用 规则 concatenate([2]，[3] ，[Tai12-A])。 我 们 会 得 到 这 样 的 结 
concatenate([2|[ ]], [3], [2|Tail2-B]) :- concatenate([ ], [3], Ta1il2-B) 
注意 ，Tai12-B 是 Tai12-A 的 Tai1， 它 写 原 和 完 的 Tai12 不 同 。 不 过 现在 ,我 们 不 得 不 再 次 
对 右 侧 进行 合 一 操作 。 
D concatenate([ ], [3], Tail2-C) :- concatenate([ ], [3], [3])。 
口 这 样 ,我们 知道 Tai12-C 是 [3] 。 现 在 我 们 可 以 沿 着 这 条 链 回 溯 。Tai12-C 是 [3] ， 意 味 着 
[21Tai12-B] 是 [2，3] ， 最 后 [LITai12] 是 [1L,2,3]。What 是 [1,2,3]。 
这 里 Prolog 为 你 做 了 大 量 工作 。 重 温 一 下 这 个 列表 ， 下 到 你 真正 理解 它 。 对 藤 套 的 子 目 标 进 
行 合 一 操作 是 解决 本 书 中 一 些 高 级 问题 的 核心 概念 。 
现在 , 你 已 经 见识 到 了 Prolog 中 功能 最 丰 宦 的 函数 之 一 。 人 花 点 时 间 仔 细 人 研究 一 下 这 些 方法 吧 ， 
并 确保 你 真正 理解 了 它们 。 























4.3.5 ”第 二 天 我 们 学 到 了 什么 


在 这 一 节 中 ， 我 们 学 习 了 Prolog 用 于 组 织 数据 的 基本 组 成 部 分 : 列表 和 元 组 。 我 们 还 使 用 了 
梭 套 规则 ， 它 可 以 表达 一 些 在 其 他 语言 中 使 用 迭 代 人 处 理 的 问题 。 我 们 深入 了 解 了 Prolog 的 合 一 以 
及 Prolog 是 如 何 使 得 :- 或 = 的 两 侧 相 匹配 的 。 我 们 看 到 ， 当 编写 规则 时 ， 描 述 的 是 逻辑 规则 而 不 
是 算法 ， 并 且 让 Prolog 按 照 自 己 的 方式 得 到 解决 方法 。 

我 们 也 使 用 了 数学 运算 。 我 们 学 会 了 使 用 基本 算术 和 骸 套 子 目 标 计算 总 和 和 平均 值 。 

最 后 , 我们 学 会 了 使 用 列表 。 我 们 将 一 个 列表 中 的 一 个 或 多 个 变量 与 一 些 变 量 匹 配 , 不 过 更 
重要 的 是 , 使 用 [Head|Tai1] 模 式 匹 配 将 列表 的 Head 和 剩余 元 系 与 变量 相 匹 配 。 我 们 使 用 这 种 技 
术 递 归 地 从 代 整 个 列表 。 这 些 构建 组 件 将 成 为 第 三 天 中 解决 复杂 问题 的 基础 。 
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4.3.6 ”第 二 天 自习 








找 

口 一 些 斐 波 那 契 数列 和 阶乘 的 实现 。 它 们 是 怎么 工作 的 ? 

口 使 用 Prolog 解 决 现实 问题 的 社区 。 如 今 人 们 使 用 Prolog 解 决 什么 问题 ? 

如 果 你 正在 找 一 些 你 可 以 潜心 去 做 的 更 高 级 任务 ， 试 试 下 面 这 些 问 题 。 

口 实现 一 个 汉 诺 塔 问题 。 它 是 如 何 工作 的 ? 

口 有 哪些 处 理 not 表 达 式 的 问题 ”为 什么 在 使 用 Prolog 时 需要 小 心地 对 待 否定 ? 
做 





口 翻转 一 个 列表 中 的 元 系 次 序 。 
口 找 出 列表 中 最 小 的 元 系 。 
口 对 一 个 列表 中 的 元 系 进 行 排序 。 


4.4 第 三 天 : 维 加 斯 的 爆发 


你 应 该 更 能 理解 我 为 什么 为 Prolog 选 择 “ 雨 人 ”, 那个 目 财 的 博学 的 人 了 。 虽 然 这 有 时 很 难 理 
解 ， 但 用 这 种 方式 思考 编程 确实 令 人 吃 恢 。《《 十 人》 中 我 最 豆 欢 的 是 当 Raymond 的 种 乳 意识 到 
Raymond 可 以 算 牌 的 那 一 藉 。Raymond 和 他 的 种 脂 去 了 拉 斯 维 加 斯 并 在 赠 城 里 面 大 赚 特 赚 。 在 这 
一 节 中 ， 你 将 看 到 Prolog 让 你 开心 的 一 面 。 本 记 中 的 例子 编码 既 令 人 恼 候 ， 也 令 人 兴奋 。 我 们 将 
解决 两 个 著名 的 难题 ， 而 这 恰好 是 Prolog 的 强项 ， 解 决 资源 受 限 系统 的 问题 。 

你 可 能 想 目 己 试 试 解决 其 中 的 一 些 难 题 。 如 采 你 确定 这 么 做 , 那 束 去 尝试 为 每 个 你 了 解 的 游 
戏 描述 规则 ， 而 不 是 告知 Prolog 一 个 步 又 详细 的 解决 方法 。 我 们 从 一 个 小 小 的 数 独 问 题 开 始 ， 然 
后 在 日 第 练习 中 给 你 出 一 个 更 复杂 的 数 独 问 题 。 最 后 ， 我 们 解决 经 典 的 八 呈 后 问题 。 


4.4.1 解决 数 独 问题 


我 对 编程 解决 数 独 问 题 很 者 迷 。 数 独 是 一 个 网 格 ， 其 中 有 行 、 列 和 格子 。— 典 型 的 数 独 问 题 是 
一 个 9 x 9 的 网 格 ， 其 中 有 一 些 格 子 已 填充 了 数 子 , 还 有 一 些 是 空 日 的 。9 x 9 的 方形 网 格 中 的 每 个 
单元 都 应 有 一 个 数字 ,从 1 ~ 9。 你 的 任务 就 是 填充 这 个 网 格 , 使 得 每 行 、 每 列 里 的 每 个 格子 上 的 
数字 部 只 出 现 一 次 。 

我 们 用 一 个 4 x 4 的 数 独 问 题 开始 。 虽 然 其 解决 方法 短小 些 , 但 思路 是 一 样 的 。 正 如 我 们 知 违 
的 那样 ， 让 我 们 开始 描述 这 个 世界 吧 。 抽 象 地 说 ， 我 们 有 一 个 题 板 ， 上 面 有 4 行 、4 列 16 个 格子 。 
下 表 展 现 了 这 些 格子 : 

过 









































1 1 2 2 
3 3 4 4 
3 3 4 4 
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一 个 任务 是 决定 查询 是 什么 样子 的 ， 这 非常 简单 。 有 一 个 难题 及 一 个 解决 方法 ， 用 
sudoku(CPuzzle,， Solution) 的 形式 表示 。 使 用 者 用 一 个 列表 表示 这 个 难题 ， 用 下 划 线 代替 未 知 
数字 ， 像 下 面 这 样 : 

sudoku([ ， ，2，3， 


5 4， 一 里 | 
Solution). 


如 有 果 存 在 一 个 解决 方法 , Prolog 将 提供 这 个 解决 方法 。 如果 我 们 用 Ruby 来 解决 这 个 难题 的 话 ， 
那 我 们 将 为 解决 这 个 难题 的 算法 苦恼 。 但 是 使 用 Prolog， 就 不 必 这 样 。 我 们 只 需要 提供 这 个 游戏 
的 规则 即 可 。 下 面 就 是 游戏 规则 。 

口 对 于 一 个 已 经 解决 了 的 难题 ， 难 题 中 的 数字 与 解决 方法 中 的 数字 应 该 是 相同 的 。 

口 数 独 的 题 板 是 一 个 有 着 16 个 单元 的 网 格 ， 填 充值 从 1 ~ 4。 

口 题 板 有 4 行 、4 列 以 及 4 x4 个 格子 。 

口 如 采 每 行 、 每 列 里 的 每 个 格子 都 没有 重复 数字 ， 那 么 这 个 难题 就 被 解决 了 。 

让 我 们 从 头 开 始 。 解 决 方法 和 难题 中 的 数字 应 该 匹配 : 


prolog/sudoku4 step_1.pl 























sudoku(Puzzle, Solution) :- 
Solution = Puzzle. 


我 们 实际 上 已 经 有 了 一 些 进 展 。 我 们 的 “ 数 独 解决 者 ”可 以 处 理 没有 空 日 单元 的 情况 


| ?- sudoku([4, 1,， 2，3,， 





37 dol 
1, 2, 3, 4 
37 4 1e 2 


]， Solution). 
Solution = [4,1,2,3,2.,3,4.1,1,2,.3.4.3,4,1.2] 


yes 


输出 格式 不 是 很 美观 ,不 过 意图 非常 清晰 。 我 们 得 到 了 逐 行 排列 的 16 个 数字 。 不 过 我 们 似乎 


还 不 满足 : 
| ?- sudoku([1, 2，, 3]，Solut1ion). 








Solution = [1,2,3] 


yes 

现在 ,这 个 题 板 是 无 效 的 ， 不 过 数 独 解决 者 却 报告 有 一 个 有 效 的 方法 。 显 然 ， 应 该 给 题 板 加 
上 16 个 元 际 的 限制 。 我 们 还 有 另外 一 个 问题 ， 单 元 格 里 可 以 填写 任何 值 : 

| 全 DDKRULCIL 2. 3,4 5 0 7 8 900 1 OUEIOn 





1ut1ion 一 三 [21320759 0 1 3 5 | 
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对 于 一 个 有 效 的 解决 方法 , 它 填 充 的 数字 应 该 在 1 ~ 4 的 范围 内 。 这 个 问题 会 从 两 个 方面 影 啊 
我 们 。 第 一 ， 这 会 产生 一 些 无 效 的 解决 方法 。 第 二 ，Prolog 没 有 足够 的 信息 ， 无 法 检测 出 每 个 单 
元 格 的 合法 值 。 换 句 话 说 ,结果 集 是 不 稳定 的 。 这 意味 着 没有 设 定 规则 约束 每 个 单元 格 中 的 合法 
值 ， 所 以 Prolog 无 法 猜测 这 些 值 是 什么 。 

接 下 来 为 游戏 添加 下 一 条 规则 来 解决 这 些 问 题 。 规 则 2 表明 一 个 题 板 有 16 个 单元 ， 每 个 单元 
中 数字 的 范围 为 1~ 4。GNU Prolog 使 用 内 置 的 被 称 作 fd_domain(CList，LowerBound ， 
UpperBound) 的 谓词 〈predicate ) 来 表达 合法 值 。 如 有 果 列 表 中 所 有 元 系 都 在 LowerBound 和 
UpperBound 之 间 , 包括 UpperBound, 那么 这 个 谓词 为 真 。 我 们 只 需要 保证 Puzz1le 中 的 所 有 数字 
值 在 1 ~ 4 之 间 。 








prolog/sudoku4_step_2.pl 


sudoku(Puzzle, Solution) :- 
Solution = Puzzle, 
Puzzle = [S11, S12, S13, S14, 
S21 52722, S23, S24, 
S31, S32, S33, S34, 
S41, S42, S43，S44]， 
fd_domain(Puzzle, 1, 4). 


我 们 将 Puzzle 与 一 个 拥有 16 个 变量 的 列表 进行 合 一 ， 并 限制 单元 格 的 值 域 为 1 ~ 4。 现 在 如 
果 Puzz1e 无 效 ， 我 们 将 得 到 失败 信息 。 
| ?- sudoku([1, 2， 3]，Solut1ion). 





No 


?eSUdoku(C Ll 2 3 A 5 0 7 8 O00 L203 do 6 SoOlUt1oOn: 


No 

现在 ， 开 始 实现 解决 方法 的 主要 部 分 。 规 则 3 表示 一 个 由 行 、 列 和 格子 组 成 的 题 析 。 我 们 将 
难题 分 隔 成 行 、 列 和 格子 。 现 在 ， 你 将 看 到 我 们 为 何 这 样 命 名 每 个 单元 格 了 。 这 种 摘 述 行 的 方法 
很 百 观 : 


Rowl 
Row2 


[STII S12 S13 S14 
[S21 S522 S23 S24] 
Row3 [S31 S32 5533 5341; 
Row4 [3 


对 列 的 质 述 也 是 一 样 的 : 


Colls [S11 S21 531 $41|; 
Col2 = [S12 S22,、 S32。 S421; 
Col3 = [S13 S523 533 5431 
Col4 = [S14, S24, S34, S44]， 
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还 有 格子 : 

Squarel = [S11, S12, S21, S22],， 
Square2 = [S13, S14, S23，S24],， 
Square3 = [S31, S32, S41, S42],， 
Square4 = [S33, S34, S43，S441]. 





现在 ,我 们 已 经 将 题 板 分 成 了 几 块 ， 可 以 继续 下 一 条 规则 了 。 如 果 所 有 行 、 列 和 格子 都 没有 
重复 的 元 素 , 那么 题 板 就 是 有 效 的 。 我 们 将 使 用 一 个 GNU Prolog 谓 词 做 重复 元 素 的 检查 。 如 果 所 
有 在 List 中 的 元 素 都 不 同 , 那么 fd_al1_different(List) 返 回 真 。 我 们 需要 构建 一 个 规则 来 检 
测 所 有 行 、 列 和 格子 都 是 有 效 的。 我们 使 用 下 面 这 个 人 简单 的 规则 来 完成 这 个 任务 : 
valid([]). 
valid([Head|Tai1]) :- 
fd all different(Head), 
valid(Tail). 


如 果 其 中 所 有 的 列表 都 是 不 同 的 , 那么 这 个 谓词 就 是 有 效 的 。 第 一 句 表 达 的 是 一 个 空 列 表 是 
有 效 的 。 第 二 句 表 达 的 是 ， 如果 第 一 个 元 素 列 表 的 各 项 都 不 同 并 且 剩 余 列表 都 是 有 效 的 , 那么 这 
个 列表 就 是 有 效 的 。 

剩 下 的 工作 就 是 调用 value(List) 规 则 了 : 

valid([Rowl, Row2，, Row3，Row4，, 


Coll, Col2, Col3, Col4, 
Squarel, Square2, Square3,，Square4]). 


\ 管 你 是 否 相 信 ， 我 们 完成 了 。 这 个 方法 可 以 解决 一 个 4 x 4 的 数 独 问题 : 
| ?- Sudoku([，_ ，2，3， 


























se 


罗 罗 
人 1 十 wm 
WA TI Ll 11 


ON wo | 


SolUtTon sold 1 2 33 23 dL 2 3 2 


yes 
用 一 个 更 友好 的 形式 输出 结 末 ， 如 下 所 示 : 
3 
4 1 

3 4 

4 1 2 
下 面 是 全 部 的 程序 代码 : 


prolog/sudoku4.pl 


valid([]). 
valid([Head|Tail]) :- 
fd all_different(Head), 
valid(Tail). 





4 1 
0 
l] 2 
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sudoku(Puzzle, Solution) :- 
Solution = Puzzle, 


Puzzlelrs [S11 S12. 513 S14 


S21 S22 9237 S24 
S31, S32,， S33，,，S34 


bd | bd | bd | wo 1 


S41, S42, S43, S44]， 


fd domain(Solution, 1, 4), 


Rowl1 = [S11l, S12, S13, $14], 
Row2 = [S21, S22, S23，S24]， 
Row3 = [S31, S32,，S33，S34]， 
Row4 = [S41, S42, S43,，S44]， 
Coll = [S11, S21, $31, $41], 
Col2 = [S12, 522, S32 $42|]; 
Col3 = [S13 S523 S33 S43 
Col4 = [S14, S24, S34, S44],， 
Squarel = [S11, S12, S21, S22],， 
vquUare2 Se "|ST3. S14 523 5241; 
Square3 = [S31, S32, S41,， S42],， 
Square4 = [S33, S34, S43,，S44],， 


valid([Rowl, Row2, Row3，Row4,， 
Colls Col2s Col3. Col4., 
Squarel, Square2, Square3, Square41]). 


如 采 你 未 曾 体会 到 Prolog 的 乐趣 ， 那 么 这 个 例子 应 该 可 以 让 你 体会 到 了 。 程 序 在 哪里 ?我 们 
没有 编写 什么 程序 。 我 们 只 是 描述 了 这 个 游戏 的 规则 . 一 个 有 看 16 个 单元 格 的 题 板 ， 每 个 单元 格 
中 数字 信 的 范围 是 1 ~4， 并 且 没 有 任何 行 、 列 里 的 格子 中 有 重复 的 值 。 这 个 问题 花 了 几 十 行 代码 
就 解决 了 了 ,并且 没 有 用 到 任何 数 独 解决 策略 方面 的 知识 。 在 4.4.4 市 中 ,你 将 有 机 会 解决 一 个 有 九 
格子 的 数 独 问题 ， 也 不 会 太 困难 。 

这 是 很 好 的 例子 ，Prolog 很 接 长 解决 此 类 问题 。 我 们 有 一 组 约束 ， 它 们 易于 表达 但 却 难于 解 
决 。 让 我 们 看 看 另 一 个 涉及 资源 严重 受 限 的 难题 : 八 星 后 问题 (Eight Queens )。 











4.4.2” 八 皇后 问题 


要 解决 八 旦 后 问题 , 你 需要 将 八 个 旦 后 放 在 一 个 棋盘 上 。 每 一 行 、 列 以 及 对 角 线 上 只 能 有 一 
个 星 后 。 也 许 它 从 表面 上 看 起 来 是 一 个 微不足道 的 问题 ， 更 像 是 一 个 孩子 们 的 游戏 。 但 是 在 另外 
一 个 层面 上 , 你 可 以 将 这 些 行 、 列 和 对 和 角 线 看 做 受 限 的 资源 。 我 们 的 行业 中 充满 了 解决 资源 受 限 
系统 的 难题 。 让 我 们 看 看 如 何 用 Prolog 解 决 这 个 问题 吧 ，。 

首先 ， 看 看 查询 应 该 是 什么 样子 的 。 我 们 将 每 个 星 后 表示 为 (Row，Co1) ， 一 个 包含 行 和 列 
写 的 元 组 。 棋 盘 是 一 个 元 组 的 列表 。 如 果 我 们 有 一 个 合法 的 棋盘 ，eight_queens (Board) 会 返 
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回 成 功 。 我 们 的 查询 像 下 面 这 样 : 

eight_ queens([(1, 1), (3, 2)，...]). 

下 面 看 看 解决 这 个 问题 需要 满足 的 目标 吧 。 如 果 你 想 杀 目 解 决 这 个 游戏 问题 而 不 想 借 助 这 里 
的 解决 方法 ， 那 就 看 看 这 些 目 标 吧 。 我 在 本 前 末 尾 才 会 展示 全 部 方法 。 

口 一 个 棋盘 上 有 八 个 旦 后 。 

D 每 个 旺 后 有 一 个 行 号 和 一 个 列 号 ， 行 号 和 列 号 取 值 范围 都 是 1 ~ 8。 

口 任意 两 个 星 后 不 可 以 共 且 一行。 

口 任意 两 个 星 后 不 可 以 共 训 一列。 

D 任意 两 个 旦 后 不 可 以 共 孚 一 个 对 角 线 〈 西 南 到 东北 )。 

D 任意 两 个 旦 后 不 可 以 共 孚 一 个 对 角 线 〈 西 北 到 东 丙 )。 

行 与 列 必 须 是 唯一 的 ， 不 过 我 们 必须 更 加 小 心地 处 理 对 角 线 。 每 个 星 后 都 在 两 条 对 角 线 上 ， 
一 条 从 左下 角 ( 西南 ) 到 右上 角 ( 东北 )， 另 一 条 从 左上 角 到 右 下角， 如 图 4-2 所 示 。 不 过 针对 这 
些 规则 编码 应 该 相对 容易 。 


























2 列 ~ 
” 
过 

行 全 





图 4-2” 八 旺 后 规则 


我 们 还 是 从 第 一 个 目标 开始 。 一 个 棋盘 有 八 个 旺 后 。 这 意味 春 我 们 的 列表 大 小 必须 是 8。 这 
很 容易 做 。 我 们 可 以 使 用 前 面 介 绍 过 的 count 谓 词 ， 或 者 我 们 可 以 简单 地 使 用 Prolog 内 置 的 谓词 
length。 如 打 List 有 N 个 元 素 ,， 那么 length(List,，N) 将 返回 只 。 这 次 ， 我 将 市 你 一 起 完成 解决 
整个 问题 所 需要 的 每 个 日 标 ， 而 不 是 用 例子 说 明 它 们 。 这 里 是 第 一 个 日 标 : 

eight_ queens(List) :- length(List, 8). 

接 下 来 ,需要 保证 列表 中 的 每 个 星 后 都 是 有 效 的 。 我 们 编写 一 个 规则 用 于 检查 旺 后 是 否 有 效 。 

valid _ queen((Row, Col)) :- 


Range = [1,2,3,4,5,6,7,8]， 
member(Row, Range), member(Col, Range). 
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请 词 member 刚 好 用 于 完成 你 所 想 的 事情 ， 它 用 来 检查 成 员 资 格 。 如 果 一 个 旺 后 的 行 与 列 都 
是 1~8 范 围 内 的 数字 , 那么 这 个 旺 后 就 是 有 效 的 。 接 下 来 ,我 们 将 编写 一 个 规则 检查 整个 棋盘 是 
否 是 由 有 效 的 星 后 组 成 的 。 

valid board([]). 

valid board([Head|Ta1l1]) :- valid_ queen(Head), valid_ board(Tail). 

一 个 空 棋 盘 是 有 效 的 。 如 采 一 个 非 空 棋盘 的 第 一 个 元 素 是 一 个 有 效 的 旺 后 并 且 其 余 的 旦 后 也 
是 有 效 的 ， 那 么 这 个 棋盘 就 是 有 效 的 。 

我 们 继续 。 下 一 个 规则 是 两 个 呈 后 不 能 共 至 同一 行 。 为 了 解决 后 续 几 个 约束 , 我 们 需要 一 点 
帮助 。 先 将 程序 分 成 几 片 ， 这样 可 以 帮助 我 们 描述 问题 ; 什么 是 行 、 列 和 对 角 线 ? 首先 是 行 。 我 
们 编写 一 个 名 为 rows(Queens，Rows) 的 函数 。 如 末 Rows 是 由 所 有 旺 后 的 Row 元 素 组 成 的 列表 ， 
那么 这 个 函数 应 该 为 真 。 

rows([j ，[). 


rows([(Row, _)|QueensTail], [Row|RowsTail]) :- 
rows (QueensTail, RowsTail). 


这 里 需要 一 点 想象 力 ， 但 不 多 。 对 一 个 空 Queens 列 表 执 行 rows 的 结果 是 一 个 空 Rows 列 表 。 
如 条 Queens 列 表 中 第 一 个 元 又 的 Row 与 Rows 列 表 中 的 第 一 个 元 素 相 匹 配 ， 并 且 如 条 对 Queens 的 
Tai1 列 表 执 行 rows 的 结果 是 Rows 的 Tai1 列 表 , 那么 rows(Queens，Rows) 的 结果 就 是 Rows 列 表 。 
如 条 你 对 此 仍 感到 困惑 ， 可 以 用 测试 数据 做 一 些 测试 来 帮助 理解 。 羊 运 的 是 ， 列 也 采用 了 相同 的 
工作 方式 ， 我 们 将 用 列 和 蔡 代 行 : 


CS 
cols([(_ , Col)|QueensTail], [Col|lColsTa11]) :- 
cols(QueensTail, ColsTail). 


这 个 逻辑 与 rows 恰 好 相同 ， 不 过 这 回 匹 配 的 是 星 后 元 组 的 第 二 个 元 系 ， 而 不 是 第 一 个 元 素 。 

我 们 继续 给 对 角 线 编号 。 最 容易 的 编号 方法 就 是 做 一 些 简单 的 加 减法 。 如 采 北 和 西 是 1， 给 
左上 角 (西北 ) 到 右 下 角 ( 东南 ) 的 对 角 线 赋 一 个 值 Co1-Row。 下 面 是 一 个 用 于 抓 取 对 角 线 元 系 
的 谓词 ， 

diags1([], ，[]) . 

diags1l([(Row, Col)|QueensTail], [Diagonal|DiagonalsTa1i1l]) :- 


Diagonal is Col - Row, 
diagsl(QueensTail, DiagonalsTail). 


这 个 规则 工作 原理 恰好 类 似 rows 和 co1s, 不 过 我 们 还 有 一 个 限制 : Diagonal is Col - Row。 
注意 ， 这 不 是 一 个 合 一 ! 它 是 一 个 is 谓词 ， 它 将 为 这 个 解决 方法 打下 良好 基础 。 最 后 ， 我 们 会 抓 
取 从 右 下 角 (东南 ) 到 左上 角 【西北 ) 的 对 角 线 元 素 ， 如 下 所 示 : 


diags2([]，[]). 

diags2([(Row, Col)|QueensTail], [Diagonal|DiagonalsTa1i1l]) :- 
Diagonal 1s Col + Row, 
diags2(QueensTail, DiagonalsTail). 
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这 个 公式 用 了 些小 技巧 , 不 过 你 可 以 测试 几 个 值 , 直到 你 确信 行列 编号 之 和 相同 的 旦 后 真 的 
在 同一 条 对 角 线 上 。 既 然 我 们 已 经 有 了 帮 我 们 描述 行 、 列 和 对 角 线 的 规则 , 剩 下 要 做 的 就 是 确保 
行 、 列 和 对 角 线 列表 中 的 元 素 都 是 不 同 的 。 

下 面 是 这 个 解决 方法 的 全 部 代码 。 最 后 8 个 子 句 是 对 rows 和 columns 的 测试 。 


prolog/queens.pl 





valid_queen((Row, Col)) :- 
Range = [1l,2,3.4,5,0,7,8]; 
member(Row, Range), member(Col, Range). 


valid board([|]). 
valid board([Head|Ta1i1l]) :- valid _ queen(Head), valid_ board(Tail). 


rows([]，[]). 
rows([(Row, _)|QueensTail], [Row|RowsTail]) :- 
rows (QueensTail, RowsTail). 


colsC ble | 
cols([(_ , Col)|QueensTail], [CollColsTa1i1]) :- 
cols(QueensTail, ColsTail). 


diags1([]，[]). 

diagsl1([(Row, Col)|QueensTail], [Diagonall|DiagonalsTa1il]) :- 
Diagonal 1s Col - Row, 
diagsl(QueensTail, DiagonalsTail). 


diags2([]，[]). 

diags2([(Row, Col)|QueensTail], [Diagonal|DiagonalsTail]) :- 
Diagonal 1s Col + Row, 
diags2(QueensTail, DiagonalsTail). 


eight_queens(Board) :- 
length(Board, 8), 
valid board(Board), 


rows (Board, Rows), 
cols(Board, Cols), 
diagsl(Board, Diags1), 
diags2(Board, Diags2), 


fd all different(Rows), 
fd all different(Cols), 
fd all_different(Diags1), 
fd all_different(Diags2). 


现在 , 你 可 以 运行 这 个 程序 了 它 将 马 不 集 帆 地 一 耳 运 行 。 有 太 多 的 组 合 需要 局 效 地 整理 了 。 
想 想 看 ,我 们 的 条 件 是 每 一 行 上 有 且 只 有 一 个 旺 后 。 我 们 可 以 提供 一 个 像 下 面 这 样 的 题 板 ， 并 迅 
速 局 动 这 个 解决 方法 : 
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| ?- eight queens([(1, A), (2, B), (3, C), (4, D), (53, E), (6, F), (7, GC), (8, H)]). 


A 1 
B = 2 
C=8 
D = 6 
E = 3 
F327 
2 
H's4 7 





这 个 程序 工作 得 很 好 , 不 过 它 工 作 得 过 于 “ 羊 圳 ”。 我 们 可 以 很 容易 地 删除 行 选择 并 简化 API。 
下 面 是 一 个 稍 作 优化 的 版 本 : 

prolog/opiimized_queens.pl 

valid_queen((Row, Col)) :- member(Col, [1,2,3,4,5,6,7,8]). 


valid board([]). 
valid board([Head|Tail]) :- valid _ queen(Head), valid board(Tai1l). 





cs 
cols([( , Col)|QueensTa1il], [Col|lColsTa11l]) :- 
cols(QueensTail, ColsTail). 


diags1l([], []). 
diags1l([(Row, Col)|QueensTail], [Diagonal|DiagonalsTa1i11]) :- 
Diagonal is Col - Row, 


A /NA T= ~ 
diagsli(QueensTail, Diag 


OO 


diags2([]，[]). 

diags2([(Row, Col)|QueensTail], [Diagonal|DiagonalsTa1i11]) :- 
Diagonal is Col + Row， 
diags2(QueensTail, DiagonalsTail). 


St 
[CTs > 02, 二 
oard(Board), 


cols(Board, Cols), 
diagsl(Board, Diags1), 
diags2(Board, D1iags2), 


fd all different(Cols), 
fd_all_different(Diags1), 
fd all_different(Diags2). 


逻辑 上 ， 我 们 已 经 做 出 了 一 个 重大 的 修改 。 用 (1, _), (G2, _), G3, _), (4, _), (5, _),， 
(6，_)，(7，_) ，(8，_) 来 匹配 Board， 以 显著 地 减少 中 间 结 果 交 换 的 次 数 ， 同 时 删除 了 所 有 
与 行 有 关 的 规则 。 结 果 显 示 了 出 来 。 在 我 的 “ 老 古 董 ”MacBook 上 ， 所 有 人 解决 方法 都 会 在 3 分 钟 
内 计算 完毕 。 
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最 终 的 结果 再 次 令 人 满意 。 我 们 对 解决 方法 的 知识 了 解 有 限 。 我 们 只 是 描述 了 游戏 的 规则 ， 
并 且 应 用 了 一 些 逻 辑 提高 了 问题 的 解决 效率 。 只 要 遇 到 合适 的 问题 ， 我 发 现 我 真 的 会 融入 Prolog 
的 氨 稚 中 。 


4.4.3 ”第 三 天 我 们 学 到 了 什么 


今天 ， 我 们 将 Prolog 中 使 用 的 一 些 想法 放 在 一 起 解决 一 些 经 典 的 难题 。 这 些 基于 约束 的 问题 
具有 许多 与 经 典 的 行业 应 用 相同 的 特性 。 列 表 约 束 ， 以 及 快速 创建 解决 方法 。 我 们 永远 不 会 去 想 
以 命令 式 的 方式 进行 一 次 9 个 表 的 SQL 连 接 操作 ， 然 而 对 于 以 这 种 方式 解决 逻辑 问题 ， 我 们 根本 
不 会 感到 丝毫 奇怪 。 

我 们 以 一 个 数 独 问题 开始 。Prolog 的 解决 方法 十 分 简单 。 将 16 个 变量 映射 到 行 、 列 和 格子 上 。 
然后 ,我 们 描述 游戏 的 规则 , 迫使 每 行 、 每 列 里 的 每 个 格子 上 的 变量 都 是 独一无二 的 。 然 后 , Prolog 
有 条 不 勾 地 检查 所 有 可 能 性 , 并 快速 获得 一 个 解决 方法 。 我 们 使 用 通配符 和 变量 构建 了 一 个 直观 
的 API， 不 过 并 没有 提供 任何 有 关 解 决 方法 技术 方面 的 帮助 。 

接 下 来 ， 使 用 Prolog 去 解决 八 皇 后 问题 。 再 次 对 游戏 规则 编码 并 且 让 Prolog 得 出 解决 方法 。 
这 个 经 典 问题 是 计算 密集 型 的 ,共有 92 种 可 能 的 解决 方法 , 不 过 即使 是 这 个 简单 的 方法 ,也 可 以 
在 很 短 的 时 间 内 将 问题 解决 。 

我 仍然 不 知道 用 于 解决 高 级 数 独 问题 的 所 有 诀 加 和 技术 ,但 是 使 用 Prolog 我 就 不 需要 知道 这 
些 。 我 只 需要 知道 如 何 玩 这 种 游戏 即 可 。 


4.4.4 第 三 天 上 自习 
找 





























口 Prolog 也 有 输入 /输出 功能 。 找 出 可 以 打印 输出 变量 的 print 谓 词 。 

口 找到 一 种 通过 print 谓 词 仅 输出 成 功 的 解决 方法 的 方式 。 它 是 如 何 工作 的 ? 
做 

口 修改 数 独 解 决 器 用 来 解决 6 x 6 数 独 ( 每 个 格子 是 3 x 2 ) 和 9 x 9 数 独 问题 。 

口 让 数 独 解决 器 输出 格式 更 美观 的 解决 方法 。 

如 果 你 是 一 个 解 题 爱好 者 ， 你 可 能 会 迷失 在 Prolog 中 。 如 果 你 想 深入 研究 我 曾 展示 的 难题 ， 
八 皇 后 问题 是 一 个 好 的 起 点 。 

口 采用 一 个 皇后 列表 的 方式 解决 八 皇 后 问题 。 使 用 一 个 1 ~ 8 范围 内 的 数字 代表 每 个 皇后 ， 

而 不 是 用 元 组 。 通过 旺 后 在 列表 中 的 位 置 获 取 其 行 号 并 且 通 过 其 在 列表 中 的 值 获得 其 列 号 。 


4.5” 趁 热 打 铁 


Prolog 是 这 本 书 中 较 老 的 语言 之 一 ,不 过 其 思想 在 今天 依旧 有 其 吸引 力 和 价值 。Prolog 的 
含义 是 用 逻辑 编程 。 我 们 使 用 Prolog 去 处 理由 子 句 组 成 的 规则 ， 而 子 句 又 是 由 一 系列 的 目标 组 
成 的 。 
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Prolog 编 程 有 两 个 主要 步 又 .开始 是 构建 一 个 由 逻辑 事实 和 推论 组 成 的 关于 问题 域 的 知识 库 。 
接 下 来 ,编译 知识 库 ， 并 针对 问题 域 进行 提问 。 一 些 问题 可 以 是 断言 式 的 ，Prolog 会 用 yes 或 no 
来 回应 。 其 他 查询 带 有 变量 。Prolog 会 填充 这 些 空 日 使 得 这 些 查 询 为 真 。 

Prolog 没 有 使 用 简单 的 变量 赋值 ， 而 是 使 用 一 种 被 称 为 合 一 的 过 程 ， 该 过 程 使 得 一 个 系统 两 
侧 的 变量 相 匹 配 。 有 了 时，Prolog 对 一 个 推论 进行 变量 合 一 时 会 尝试 多 种 可 能 的 变量 组 合 。 




















4.5.1 核心 优势 


Prolog 适 用 类 型 广泛 的 问题 ， 从 航空 调度 到 金融 衍生 产品 。Prolog 有 着 一 条 不 轻松 的 学 习 曲 
线 ， 不 过 Prolog 解 决 的 那些 奇 刻 问题 往往 会 让 这 门 语言 或 者 其 他 类 似 的 语言 物 有 所 值 。 

回想 一 下 Brian Tarbox 关 于 海豚 的 研究 工作 。 他 能 够 作出 关于 这 个 世界 的 简单 推论 ， 然 后 能 
够 通过 一 个 有 关 海 豚 行 为 的 复杂 推论 作出 了 突破 性 的 进展 。 他 还 能 利用 极为 有 限 的 资源 ， 使 用 
Prolog 找 出 适合 的 日 程 安排 。 下 面 是 当前 一 些 使 用 Prolog 的 活跃 领域 。 

1. 自然 语言 处 理 

也 许 Prolog 是 第 一 种 用 于 进行 语言 识别 的 语言 。 特别 是 , Prolog 语 言 模型 可 以 采用 上 自然 语言 ， 
应 用 基于 事实 和 推论 的 知识 库 ， 并 且 可 以 用 具体 的 适 于 计算 机 的 规则 表达 那些 复杂 的 不 精确 的 
语言 。 

2. 游戏 

游戏 变 得 越 来 越 复 杂 ， 特 别 是 对 耽 客 者 或 敌人 行为 的 建 模 。Prolog 模 型 能 够 很 轻松 地 表达 
系统 中 其 他 角色 的 行为 。Prolog 也 能 为 不 同类 型 的 敌人 构建 不 同 的 行为 ， 使 得 用 户 体 验 更 加 通 
真 愉快。 

3. 语义 网 

语义 网 是 为 网 络 上 的 服务 与 信息 提供 附加 含义 的 一 种 尝试 ， 从 而 更 容易 满足 大 家 的 需求 。 资 
源 描述 语言 ( resource description language, RDF ) 提供 对 资源 的 一 个 基本 的 描述 。 服 务 右 可 以 将 
这 些 资源 编译 为 一 个 知识 库 。 这 些 知 识 , 再 加 上 Prolog 的 自然 语言 处 理 就 能 提供 丰富 的 用 户 体 验 。 
Web 服 务 硕 上 提供 了 许多 此 类 功能 的 Prolog 包 。 

4. 人 工 智能 

人 工 智 能 (AI) 关注 让 机 融 拥有 智能 。 智 能 可 能 表现 为 多 种 形式 ， 不 过 在 每 种 情况 下 ， 一 些 
“代理 ”会 基于 复杂 规则 对 行为 进行 修改 。Prolog 在 这 个 领域 很 擅长 , 尤其 是 当 这 些 规 则 是 明确 的 
目 基 于 正式 逻辑 的 。 为 此 ，Prolog 有 时 被 称 为 一 门 逻辑 编程 语言 。 

5. 调度 

Prolog 擅 长 处 理 有 限 资源 。 许 多 厂商 使 用 Prolog 实 现 操 作 系 统 调度 器 以 及 其 他 高 级 的 调度 器 。 





















































4.5.2 不 足 之 处 


Prolog 经 受 住 了 时 间 的 考验 。 不 过 这 门 语 言 在 许多 方面 仍然 过 时 了 ， 并 且 它 确实 有 一 些 明 显 
的 局 限 。 
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1. 功用 

Prolog 擅 长 其 核心 领域 ， 它 专注 的 目标 是 逻辑 编程 。 它 不 是 一 门 通 用 的 编程 语言 ， 它 也 有 一 
些 有 关 语 言 设 计 方 面 的 限制 。 

2. 超大 数据 集合 

Prolog 使 用 了 一 个 深度 优先 搜索 的 决策 树 ， 它 使 用 所 有 可 能 组 合 与 规则 集合 相 匹 瑟 ， 并 日 其 
编 详 希 对 这 个 过 程 做 了 很 好 的 优化 。 不 过 , 这 个 策略 需要 进行 大 量 计算 ， 特 别 是 当 数据 集 规 模 非 
稼 大 的 时 候 。 这 也 迫使 Prolog 用 户 必 须 理解 语言 的 工作 原理 以 保持 数据 集 的 规模 在 可 控 范 围 内 。 

3. 混合 命令 式 和 声明 式 模 型 

和 许多 丽 数 式 语 言 一 样 ， 特 别 是 那些 严重 依赖 递归 的 语言 ， 你 必须 理解 Prolog 是 如 何 解决 递 
归 规 则 的 。 你 必须 经 常 使 用 尾 递 归 规 则 去 完成 中 等 规模 的 问题 。 构建 一 个 基于 小 数据 集 但 无 法 扩 
展 的 Prolog 应 用 相对 容易 ， 但 必须 深入 理解 Prolog 的 工作 原理 才能 更 有 效 地 设计 出 在 可 接受 的 层 
次 上 进行 扩展 的 规则 。 




















4.5.3 ”最 后 思考 


当 我 学 习 完 这 本 书 中 的 各 门 编程 语言 时 ， 我 经 第 目 责 ， 感 觉 这 些 年 来 一 下 都 在 杀 鸡 用 牛刀 。 
Prolog 就 是 我 在 不 断 学 习 的 过 程 中 的 一 个 特别 深刻 的 例子 。 如 果 你 发 现 一 个 特别 适合 Prolog 解 决 
的 问题 ， 那 就 利用 Prolog 解 决 吧 。 只 有 这 样 ， 你 才能 更 好 地 将 这 门 基于 规则 的 语言 与 其 他 通用 语 
言 结合 在 一 起 使 用 。 就 像 你 在 Ruby 或 Java 中 使 用 SQL 一 样 。 如 果 能 很 好 地 将 它们 结合 在 一 起 ， 你 
很 可 能 最 终 因此 脱颖而出 。 
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Scala 


我 们 不 是 绵羊 。 





剪刀 手 Edward 


到 目前 为 止 ,我 已 经 介绍 过 三 种 编程 语言 以 及 三 种 不 同 的 编程 范 型 (programming paradigm ) 
了 。Scala 是 第 四 种 。 它 是 一 种 混合 编程 语言 ,混合 编程 语言 在 两 种 不 同 编程 范 型 之 间 搭 建 一 座 桥 
梁 以 弥合 差异 。 在 这 里 ， 这 座 桥梁 搭建 在 面条 对 象 语言 (如 Java ) 以 及 孔 数 式 语言 ( 如 Haskell ) 
之 间 。 从 这 个 意义 上 讲 ，Scala 可 以 说 是 一 个 科学 怪人 , 但 却 不 是 一 个 怪物 。 想 一 想 《 剪 刀 手 爱 德 
华 》" 这 部 电影 。 

在 Tim Burton 的 这 部 超 现实 影片 中 ，Edward 是 一 个 拥有 一 双 勇 刀 手 的 机 需 人 男孩 儿 ， 同 时 他 
也 是 一 耳 以 来 我 最 喜欢 的 银 硕 角色 之 一 。 在 这 部 美丽 的 影片 中 ，Edward 是 一 个 很 吸引 人 的 角色 。 
他 营 和 党 条 手 笨 脚 ， 不 过 有 时 也 令 人 吃惊 ,并 总 是 表现 出 一 副 独 特 的 表情 。 有 时 ， 他 能 用 他 的 剪 刀 
手 做 出 一 些 不 可 思议 的 事情 ,有 时 叉 因 宁 拙 而 被 人 羞辱 ,他 经 党 因为 其 标新立异 的 行为 而 被 误 解 ， 
甚至 被 指责 为 “迷失 正道 ”。 然 而 在 一 次 变 得 更 坚强 的 时 刻 ， 这 个 害 郑 的 男孩 却说 出 了 “我 们 不 
是 绵羊 "。 他 说 得 没 错 。 


5.1 天 于 Scala 


随 着 对 计算 机 程序 的 需求 越 来 越 复 杂 , 计算 机 语言 也 在 发 展演 化 。 每 隅 20 年 左右 ， 老 的 编程 
汇 型 就 会 变 得 不 足以 应 对 一 些 组 织 和 表达 思想 的 新 要 求 。 新 的 范 型 必定 会 涌现 出 来 , 但 这 并 不 是 
一 个 简单 的 过 程 。 每 个 新 的 编程 范 型 部 会 引入 一 批 编程 语言 ,而 不 仅 仪 只 是 一 种 语言 。 最初 的 语 
言 往往 具有 惊人 的 生命 力 , 但 也 很 不 实用 。 比 如 面 问 对 象 编 程 语言 Smalltalk 或 者 因数 式 编 程 霹 言 
Lisp。 接 下 来 ， 其 他 范 型 的 语言 会 加 入 一 些 新 特性 ， 人 允许 开发 人 员 在 采用 新 概念 的 同时 也 可 以 安 
全 地 使 用 原先 的 老 范 型 。 例 如 Ada 语 言 ， 它 能 够 在 过 程式 语言 中 使 用 一 些 面 向 对 象 的 核心 思想 ， 
比如 封装 。 某 些 时 候 ， 一些 混 合 语言 惟 恰 是 搭建 在 新 老 范 型 之 间 的 一 座 实用 的 桥梁 ， 比 如 C++。 



































GD Edward Scissorhands，DVD 版 ， 导 演 : Tim Burton ( 1990 年 )。 发 行商 : 加 利 福 尼 亚 州 比 弗 利 山 20 世 纪 福 克 斯 公司 
( 2002 年 )。( 译 者 注 : 这 部 电影 中 译名 为 《剪刀 手 爱 德 华 记 Edward 是 一 个 机 天 人 ， 有 一 双 剪 刀 手 。 他 被 化 妆 品 推 
销 员 带 回 家 ， 开 始 在 人 类 世界 的 生活 。 但 由 于 他 总 是 好 心 办 坏事 ， 邻 居 们 逐 潮 无 法 接受 这 个 单纯 的 Edward。 最 终 
Edward 不 得 不 躲 到 城堡 里 ， 用 他 的 剪刀 修剪 他 的 植物 和 他 的 冰雕 。) 
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泽 接 春 ， 你 将 看 到 一 些 可 用 于 商业 应 用 的 编程 请 谨 ， 比 如 Java 或 C#。 最 后 ， 你 才 会 看 到 新 范 型 的 
一 些 成 熟 且 完整 的 实现 。 


5.1.1 与 Java 的 密切 关系 


Scala 至 少 可 以 作为 一 座 桥 桨 ， 也 许 还 不 仅 如 此 。 它 与 Java 紧 密集 成 ， 为 人 们 提供 了 一 个 保护 
投资 的 机 会 ， 这 体现 在 以 下 几 个 方面 。 

口 Scala 运 行 在 Java 虚 拟 机 上 ， 这 使 得 Scala 可 以 和 现存 的 应 用 同时 运行 。 

口 Scala 可 以 直接 使 用 Java 类 库 ， 使 得 开发 人 员 可 以 利用 现 有 的 框架 和 遗留 代码 。 

口 Scala 和 Java 一 样 都 是 静态 类 型 声言 ， 因 此 两 种 语言 讲 循 一 样 的 编程 哲学 。 

口 Scala 的 语法 与 Java 比 较 接 近 ， 使 得 开发 人 员 可 以 快速 掌握 语言 基础 。 

口 Scala 既 文 持 面 癌 对 象 范 型 也 文 持 困 数 式 编程 范 型 ， 这 样 开发 人 员 就 可 以 逐步 在 代码 中 运 

用 隆 数 式 编程 的 思想 。 


5.1.2 ”没有 盲目 崇拜 


一 些 编程 语言 过 于 迷信 和 祖先， 延展 的 概 仿 有限， 导致 其 基础 不 牢固 。 尺 管 与 Java 的 相似 性 为 
人 称道 , 然而 Scala 的 设计 仍然 不 乏 有 意义 的 新 尝试 , 这样 可 以 很 好 地 满足 其 开发 社区 的 需要 。 这 
些 重要 的 改进 代表 了 与 Java 语 言 的 不 同 之 处 。 
口 类 型 推断 。 在 Java 中 ， 你 必须 声明 每 个 变量 、 实 际 参数 或 形式 参数 的 类 型 。Scala 则 会 在 
可 能 的 情况 下 推 盯 出 变量 的 类 型 。 
口 函数 式 编程 概念 。Scala 将 函数 式 编程 的 重要 概念 引入 Java。 具 体 来 说 ， 这 门 语言 可 以 通 
过 不 同方 式 使 用 已 有 的 函数 构造 出 新 沟 数 。 在 本 草 中 你 将 看 到 的 概念 包括 代码 块 、 高 阶 
国 数 (high-order function ) 以 及 一 个 复杂 的 集合 库 。Scala 所 提供 的 已 远 远 超出 基本 语法 
糖 的 范畴 了 。 
口 不 交 量 。Java 的 确 允 许 使 用 不 变量 , 不 过 是 通过 提供 一 个 很 少 使 用 的 修饰 符 实 现 的 。 在 本 
曹 中 ， 你 将 看 到 Scala 会 要 求 你 明确 地 决定 一 个 变量 是 否 可 变 。 这 些 决定 将 对 应 用 程序 在 
并 发 环境 中 的 行为 产生 深远 的 影响 。 
口 高 级 程序 构造 。Scala 很 好 地 使 用 了 基础 语言 ， 并 将 有 用 的 概念 分 层 。 在 本 昔 中 我 们 将 问 
你 介绍 用 于 并 发 应 用 的 actor 模 型 、 使 用 高 阶 函 数 的 Ruby 风 格 的 集合 以 及 作为 一 等 对 象 类 
型 ( first-class ) 的 XML 的 处 理 。 
在 开始 学 习 Scala 之 前 ， 我 们 应 该 了 解 一 下 Scala 诞 生 背 后 的 动机 。 我 们 将 花 些 时 间 与 Scala 的 
缔造 者 在 一 起 探讨 一 下 他 是 如 何 决 定 将 两 种 编程 疙 型 结合 在 一 起 的 。 







































































5.1.3 Martin Odersky 访 谈 录 





Martin Odersky，Scala 的 设计 者 ， 珊 士 洛 桑 联 邦 理 工学 院 ( EPFL ) 的 教授 ， 该 学 院 是 瑞士 两 
所 联邦 理工 学 院 中 的 一 所 ,他 曾 参 与 了 Java 沁 型 规 冰 的 制定 ,并且 是 javac 编 译 紫 参考 实现 的 作者 。 


图 灵 社 区 会 员 LorraineMeillorrainemei@gmail.com) 专 享 尊重 版 权 


$.1 关于 Scala 101 


他 也 是 Programmine in Scala: 4 Comprehensive Step-by-Step Guide [OSV08] 一 书 的 作者 ， 这 本 书 是 
目前 市 面 上 最 好 的 Scala 书 籍 之 一 。 以 下 是 对 他 的 采访 记录 。 

Bruce: 你 为 什么 要 开发 Scala? 

Odersky 博 士 : 我 坚信 将 函数 式 和 面向 对 象 两 种 编程 范 型 统一 起 来 将 具有 很 大 的 实用 价值 。 
不 过 函数 式 编程 社区 对 面向 对 象 编程 (OOP ) 不 悄 一 顾 的 态度 和 面向 对 疹 程 序 员 坚持 函数 式 编程 
只 是 一 种 学 术 活 动 的 信条 都 让 我 十 分 沁 夷 。 因 此 ,我 想 表明 这 两 种 模式 可 以 统一 , 而 且 一 些 新 的 
更 强大 的 功能 可 能 因此 而 产生 。 同时 我 也 想 设 计 出 一 门 新 语言 ， 用 它 编写 程序 会 让 我 自己 感觉 更 
加 舒服 。 

Bruce: 你 最 喜欢 它 哪 一 点 呢 ? 

Odersky 博 士 : 我 喜欢 它 让 程序 员 自 由 地 表达 自己 并 且 感 觉 轻松 自如 ,同时 通过 其 类 型 系统 ， 
它 还 能 为 程序 员 提 供 强 有 力 的 支持 。 

Bruce: 它 最 擅长 解决 什么 样 的 问题 ? 

Odersky 博 士 : 它 实 际 上 是 一 门 通用 语言 。 我 会 尝试 用 它 去 解决 所 有 问题 。 即 便 如 此 ， 相 对 
于 其 他 主流 语言 ，Scala 具 有 一 项 独特 优势 , 即 对 函数 式 编 程 的 支持 。 因 此 所 有 函数 式 编 程 方法 发 
挥 重 要 作用 的 地 方 ，Scala 都 会 有 出 色 的 表现 ， 无 论 是 并 发 性 和 并 发 处 理 ， 还 是 处 理 XML 的 Web 
应 用 ， 或 是 实现 领域 特定 语言 。 

Bruce: 如 果 能 让 时 光 倒 流 ， 你 想 改变 哪些 特性 ? 

Odersky 博 士 : Scala 的 局 部 类 型 推断 用 起 来 很 好 ， 但 是 也 有 局 限 性 。 如 果 可 以 重新 开始 ,我 
会 尝试 使 用 功能 更 强大 的 约束 求解 器 ( constraint solver )。 也 许 现在 依然 可 以 做 到 这 点 ,不 过 已 有 
的 大 量 用 户 群 让 这 个 工作 变 得 更 加 困难 。 

Scala 的 拥 鱼 越 来 越 多 , 这 是 因为 Twitter 已 经 将 其 核心 消息 处 理 的 实现 从 Ruby 迁 移 到 了 Scala。 
面向 对 象 的 特性 使 得 程序 可 以 相当 平 请 地 从 Java 语 言 迁 移 到 Scala, 但 是 Scala 真 正 吸引 大 家 有 眼球 的 
概念 是 其 函数 式 编程 的 特性 。 纯 也 数 式 语言 实现 了 一 种 具有 很 强 数学 基础 的 编程 风格 。 一 门 子 数 
式 语言 具有 以 下 几 点 特性 。 

口 函数 式 程 序 由 因数 组 成 。 

口 国 数 总 是 具有 返回 值 。 

口子 数 对 于 相同 的 输入 总 是 会 返回 相同 的 值 。 

口 也 数 式 程序 禁止 改变 状态 或 修改 数据 。 一 旦 你 设置 了 一 个 值 ， 就 无 需 青 管 它 了 。 

严格 地 讲 ，Scala 并 不 是 一 门 纯 函 数 式 编程 语言 ， 就 像 C++ 不 是 一 门 纯 面 向 对 象 语言 一 样 。 它 
人 允许 可 变 值 ,这 可 能 会 导致 图 数 在 输入 相同 的 情况 下 输出 却 不 同 。[ 和 大 多 数 面 问 对 象 霹 言 一 样 ， 
使 用 getter (获取 方法 ) 和 setter (设置 方法 ) 将 破坏 这 一 规则 。] 但 是 , 它 提 供 了 让 开发 人 员 
合理 应 用 函数 式 抽 象 的 方法 。 


5.1.4 函数 式 编程 与 并 发 


当前 对 人 研究 并 发 编程 的 面向 对 和 象 程 序 员 来 说 , 最 大 的 问题 在 于 可 变 的 状态 , 也 就 是 说 数据 是 
可 以 随时 改变 的 。 任 何 变 量 在 初始 化 后 都 是 可 变 的 ,可 以 被 多 次 赋值 。 如 果 说 可 变 状态 是 王牌 大 
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贱 谍 的 话 ， 那 并 发 就 好 比 邪 恶 博士 "。 如 果 两 个 不 同 的 线程 可 以 在 同一 时 间 更 改 相 同 的 数据 ， 就 
很 难保 证 执行 过 程 中 数据 始终 处 于 有 效 状 态 , 测试 也 几乎 是 不 可 能 的 。 数据 库 系统 通过 事务 和 锁 
来 应 对 这 个 问题 。 面 回 对 象 编 程 声言 则 是 通过 给 程序 员 提 供 控制 对 共享 数据 访问 的 工具 来 应 对 这 
个 问题 。 但 即便 是 知道 如 何 使 用 这 些 工 具 ， 程 序 员 通 常 也 无 法 很 好 地 使 用 它们 。 

水 数 式 编程 语言 通过 去 除 等 式 中 的 可 变 状态 来 解决 这 些 问题 Scala 不 强迫 你 完全 去 除 可 变 状 
态 ， 不 过 它 确 实 给 你 提供 了 一 种 使 用 纯 消 数 风格 编程 的 方法 。 

有 了 Scala, 你 就 无 需 在 Smalltalk 和 Lisp 之 间作 出 艰难 的 选择 了 。 让 我 们 开始 用 Scala 代 码 将 面 
向 对 象 编 程 和 函数 式 编 程 两 个 世界 融合 在 一 起 吧 。 


5.2 第 一 天 : 山上 的 城堡 


在 《剪刀 手 爱 德 华 》 这 部 影 帮 中,， 山 丘 上 有 一 座 看 上 去 有 些 不 同 的 城堡 。 在 过 去 ， 这 个 城堡 
是 一 个 神秘 且 迷 人 的 地 方 , 不 过 现在 它 却 显得 年 代 和 久远 且 殉 废 失 修 。 冷风 通过 破碎 的 窗户 刮 进 城 
堡 ， 房 间 也 早已 不 是 曾经 的 那 副 模样 了 。 曾 经 让 人 感到 十 分 舒服 的 房子 现在 却 显得 冰冷 甚至 是 令 
人 生 大 。 面 向 对 象 编程 范 型 同样 也 显示 出 了 一 些 误 败 的 迹象 ， 特 别 是 早期 实现 的 面 回 对 象 语言 。 
Java 语 言 的 静态 类 型 系统 和 并 发 机 制 的 实现 都 已 经 过 时 , 需要 重新 设计 , 改头换面 。 在 这 一 节 中 ， 
我 们 就 在 山 丘 上 的 房子 中 ， 即 面 癌 对 象 编程 范 型 的 育 景 下 ， 谈 谈 Scala。 

Scala 运 行 在 Java 虚 拟 机 (JVM，Java Virtual Machine ) 上 。 我 不 打算 提供 一 份 有 关 Java 语 言 
的 详尽 的 概述 ， 其 他 地 方 免 费 提 供 了 这 些 资 料 。 你 将 在 Scala 中 看 到 一 些 Java 的 思想 ， 不 过 我 将 努 
力 减 小 这 种 影响 , 你 无 需 同 时 学 习 两 门 语言 。 现 在, 安装 Scala。 我 在 本 书 中 使 用 的 是 2.7.7 最 终 版 。 





















































5.2.1 ”Scala 类 型 


当 Scala 安 装 完毕 后 , 输入 sca1a 命 令 启动 控制 台 。 如 果 一 切 正常 的 话 ， 你 不 会 看 到 任何 错误 
言 息 。 你 会 看 到 一 个 scala> 提 示人 符 ， 接 下 来 就 可 以 输入 一 些 代码 了 。 


scala> printin("Hello, surreal world") 
Hello, surreal world 


scala> 1+1 
res8: Int = 2 


scala> 5+4*%3 
res10: Int = 17 


scala> 5.+(4.*(3)) 


OQ 邪恶 博士 (DrEvil ) 是 电影 《王牌 大 贱 读 》 中 的 一 个 人 物 。《 王 牌 大 贱 读 》 是 由 Jay Roach 导 演 的 一 部 喜剧 电影 。 
在 这 部 影片 中 ，20 世 纪 60 年 代 的 特工 奥斯汀 一 次 又 一 次 地 打败 了 政 亚 博士， 拯救 了 全 世界 。 
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resll: Double = 17.0 

scala> (5).+((4).*%(3)) 

resl2: Int = 17 

整数 是 对 象 。 在 Java 中 , 在 int (原生 类 型 ) 和 Integer ( 对象 ) 之 间 做 转换 曾 让 我 耗 尽 脑 
力 。 事 实 上 ,除了 少数 例外 ，Scala 中 一 切 和 都 是 对 象 。 与 大 多 数 毅 态 类 型 的 面 四 对 象 语言 相 比 ， 这 
是 一 个 显著 的 不 同 。 让 我 们 看 看 Scala 是 如 何 处 理 字 符 串 的 : 


scala> "abc'".size 
res13: Int = 3 


字符 串 也 是 一 等 类 型 对 象 ， 并 混合 了 一 点 语法 糖 。 下 面 我 们 尝试 强制 产生 一 个 类 型 冲突 ， 
scala> "abc™” + 4 
res14: java.lang.String 








abc4 


scala> 4 + "abc" 
res15: Java.lang.String = 4abc 


scala> 4+"1.0" 
res16: JjJava.lang.String = 41.0 


咽 , 这 可 不 太 符合 我 们 预想 的 结果 。Scala 将 那些 数字 强制 转换 为 字符 串 了 。 我 们 再 加 把 劲 儿 
强制 产生 一 个 错误 匹配 : 

scala> 4 %* "abc" 
<console>:5: error: overloaded method value * with alternatives (Double)Double 
<and> (Float)Float <and> (Long)Long <and> (Int)Int <and> (Char)Int 
<and> (Short)Int <and> (Byte)Int cannot be applied to (java.1lang.String) 

4* "abc" 

人 


噢 ， 这 就 对 了 。Scala 实 际 上 是 强 类 型 的 。Scala 使 用 类 型 推断 ， 这 样 大 多 数 情 况 下 ， 它 都 能 
通过 语法 线索 推 呆 出 变量 的 类 型 。 但 与 Ruby 不 同 的 是 , Scala 可 以 在 编译 期 间 进行 类 型 检查 ,Scala 
实际 上 是 先 对 代码 进行 编译 ， 然 后 再 一 行 一 行 执行 代码 的 。 

另外 , 我 知道 你 可 能 正 想 找 回 Java 字 人 符 串 类 型 。 多 数 有 关 Scala 的 文 草 和 书籍 都 会 详细 讨论 这 
个 话题 , 不 过 我 们 不 会 这 样 做 , 我 们 仍然 继续 人 研究 程序 构造 , 我 想 这 对 你 来 说 才 是 最 有 了 吸引 力 的 。 
现在 , 我 要 告诉 你 们 ， 在 很 多 地 方 ，Scala 会 使 用 一 种 跨 语 言 的 类 型 管理 策略 。 其 中 之 一 是 在 适合 
的 地 方 使 用 简单 的 Java 类 型 ， 比 如 java.1ang.String。 相 信 我 ， 并 接受 这 个 过 于 简化 的 介绍 吧 。 


5.2.2 ”表达 式 与 条 件 
现在 我 们 将 通过 例子 严谨 快速 地 学 习 一 些 基 本 语法 ,下 面 是 一 些 Scala 的 true/false 表 达 式 : 


scala> 5 < 0 
res27: Boolean = true 





























scala> 5 <= 6 
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res28: Boolean = true 


scala> 5 <= 2 
res29: Boolean = false 


scala> 5 >= 2 


res30: Boolean true 


scala> 5 != 2 
res31: Boolean = true 


这 里 没有 什么 可 讲 的 。 通 过 之 前 几 门 语言 的 介绍 你 应 该 很 熟悉 这 种 C 风 格 的 语法 了 。 接 下 来 
在 if 语 句 中 使 用 一 个 表达 式 : 


scala> val a = 1 
a: Int = 1 








中 
[Bo 


scala> val b 
b: Int = 2 


scala> if (Cb < a) 
| println("true") 
| } else { 
| printlin("false") 
| } 


false 

我 们 给 两 个 变量 赋 了 值 ， 并 在 一 个 if/else 语 句 中 对 它们 进行 了 了 比较。 我们 来 仔细 看 一 下 变 
量 赋值 操作 。 首 先 ， 注 意 这 里 并 没有 指定 变量 的 类 型 。Scala 与 Ruby 不 同 ， 它 在 编译 期 间 绑 定 变 

量 类 型 。 不 过 Scala 也 与 Java 不 同 ， 它 会 推 呆 出 变量 的 类 型 ， 因 此 不 需要 输入 val a : Int = 1， 

当然 如 有 果 你 想 这 么 做 的 话 ， 也 是 可 以 的 。 

接 下 来 ， 注 意 这 些 Scala 变 量 的 声明 以 关键 字 val 开 始 。 当 然 你 也 可 以 使 用 关键 字 var，vall 
用 来 声明 不 变量 ， 而 var 不 是 。 后 面 我 们 会 详细 讨论 它们 。 

在 Ruby 中 ,0 等 价 于 true, 而 在 C 中 ,0 则 等 价 于 false。 在 这 两 种 语言 中 ,ni1 都 等 价 于 false。 
让 我 们 看 看 Scala 是 如 何人 处 理 它们 的 吧 。 


scala> Ni1il 
res3: Nil.type = List() 


























scala> 1if(0) {printin("true") 


中 
人 ~ 内 亚 一] 六 ~、 EC 。 人 mm Ts m1 


<CONSOIE>:D: error: TyPpe i 
found : Int(O) 
required: Boolean 

1f(0) {printlin("true")} 
人 


scala> if(Nil1) {printin("true")} 


<console>:5: error: type mismatch; 
found : Nil.type (with underlying type object N11) 
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required: Boolean 
1f(Ni1) {printlinC"true" )} 
和 


我 们 看 到 Ni1 是 一 个 空 列表 , 并 且 你 甚至 无 法 对 Ni1 或 0 进行 条 件 测试 。 这 种 行为 与 Scala 的 强 


类 型 和 表态 类 型 语言 设计 哲学 相 吻 合 。Ni1 和 数字 不 是 布尔 值 ， 所 以 不 要 按 布尔 值 对 待 它们。 有 
了 人 简单 表达 式 和 最 基本 的 判断 结构 之 后 ， 我 们 来 学 习 循环 。 





5.2.3 ”循环 


由 于 接 下 来 的 几 个 程序 更 加 复兴， 我 们 将 选择 使 用 脚本 而 不 是 控制 台 来 运行 它们 。 与 Ruby 
和 和 Io 一样 ， 你 可 以 通过 scala path/to/program.scala 来 运行 脚本 。 

在 第 二 天 学 习 代 码 块 时 ,你 会 看 到 多 种 在 结果 集中 进行 迭代 的 方法 。 不 过 目前 ,我们 将 主要 
学 习 命 令 式 风格 的 循环 。 你 会 看 到 这 与 Java 风 格 的 循环 结构 很 相似 。 














”有 关 静 态 类 型 的 内 心 斗争 


一 些 初级 的 编程 爱好 者 常常 将 强 类 型 和 静态 类 型 这 两 个 概念 混 消 。 强 类 型 是 指 这 门 语言 
检查 两 种 类 型 是 否 兼 容 ， 如 果 不 兼 容 则 会 抛 出 一 个 错误 或 强制 类 型 转换 ,尽管 上 述说 法 不 是 
很 严格 。 表 面 上 ，Java 和 Ruby 都 是 强 类 型 的 。( 我 意识 到 这 个 想法 有 些 过 于 简化 了 。) 另 一 
方面 , 汇编 语言 和 C 语 言 则 是 弱 类 型 的 。 编 译 器 并 不 关心 在 某 一 内 存 位 置 上 的 数据 到 底 是 一 
个 整数 、 一 个 字符 串 还 是 只 是 一 个 普通 数据 。 

静态 类 型 和 动态 类 型 则 是 另外 一 个 话题 ,静态 类 型 语言 强 连 在 类 型 结构 的 基础 上 执行 多 
态 。 判 断 是 否 是 一 只 鸭子 的 依据 是 其 基因 蓝图 (静态 )， 还 是 因 其 叫 声 和 走路 的 姿态 像 一 只 
鸭子 (动态 )。 静 态 类 型 语言 的 好 处 在 于 编译 器 和 工具 等 对 你 的 代码 更 加 了 解 ， 可 以 用 于 捕 
捉 错误 ,突出 显 式 代码 以 及 便于 重 构 代码 。 付出 的 代价 则 是 你 不 得 不 做 更 多 的 工作 并 且 会 受 
到 一 些 限 制 。 作 为 开发 者 ， 你 的 开发 经 历经 往往 会 决定 你 是 如 何 权 衡 使 用 静态 类 型 的 ， 

我 第 一 次 是 使 用 Java 进行 面向 对 象 开发 的 。 我 看 到 一 个 又 一 个 框架 试图 摆脱 Java 静态 
类 型 的 束缚 ,这 个 行业 在 三 个 版 本 的 企业 级 Java 组 件 (EJB, Enterprise Java Beans) 、Spring、 
Hibernate、JBOSS 以 及 面向 方面 编程 (AOP，aspect-oriented programming) 上 投资 了 上 千 万 
美元 ， 试 图 让 某 些 应 用 模型 具有 更 强 的 适应 性 。 我 们 正在 让 Java 的 类 型 模型 更 趋 动 态 化 ， 
并 且 这 场 斗 争 的 每 一 步 都 是 十 分 激烈 的 ， 感 觉 更 像 是 对 抗 箱 教 ， 而 不 是 为 了 改善 编程 环境 ，。 
本 书 走 的 也 是 这 条 路 ， 从 日 益 增 多 的 动态 框架 到 动态 语言 。 

我 对 静态 类 型 的 偏见 被 这 场 Java 战争 改变 了 。Haskell 及 其 强大 的 静态 类 型 系统 正在 帮 
助 我 从 阴影 中 缓慢 地 走出 来 。 我 问心 无 愧 。 你 已 经 被 闭 请 与 一 个 不 愿 公开 身份 的 政客 一 起 吃 
顿 便 饭 了 ， 不 过 我 会 尽 最 大 努力 保证 这 次 谈话 是 轻松 且 无 偏见 的 。 
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首先 是 基本 的 while 循 环 : 


scala/while.scala 








def whileLoop { 
var 1 = 1 
while(1i <= 3) 1 
println(T) 
1 += 1 


] 


0 
这 里 定义 一 个 函数 。 顺便 说 一 句 ，Java 开 发 者 需要 注意 ,这 里 无 需 明确 指定 pub1ic。 在 Scala 
中 ，public 是 默认 的 可 见 级 别 ， 即 这 个 函数 将 对 所 有 调用 者 可 见 。 
在 这 个 方法 里 ， 声 明了 一 个 循环 次 数 为 3 的 循环 。ji 总 被 改变 ， 所 以 我 们 用 var 声 明 它 。 然 后 
你 看 到 了 一 个 Java 风 格 的 while 语 句 声 明 。 人 到 括号 里 面 的 代码 一 直 执 行 ， 直 到 条 件 表达 
式 求 值 后 的 结果 为 false。 你 可 以 这 样 运行 这 段 代码 : 


batate$ scala code/scala/while.scala 
下 
2 
8 


for 循 环 的 工作 方式 与 Java 和 C 中 的 也 很 相似 ， 但 语法 稍 有 不 同 : 


scala/for loop.scala 

















def forLoop £{ 
printlinC "for loop using Java-style TteratTon”) 
for(i <- 0 until args.length) { 


printlin(args(1)) 
} 
} 
We 
这 里 的 参数 是 一 个 变量 ， 后 面 跟着 <- 操 作 符 ， 人 until endingValue 


的 形式 表示 的 循环 范围 。 在 这 里 ， 我 们 根据 传人 的 命令 行 参数 进行 迭代 : 


batate$ scala code/scala/forLoop.scala its all in the grind 
for loop using Java-style iteration 

1ts 

all 





1n 

the 

grind 

与 Ruby 一 样 ， 你 也 可 以 使 用 循环 对 一 个 集合 进行 运 代 。 现 在 ,使 用 foreach， 它 会 让 你 联想 
到 Ruby 中 的 each: 
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scalaq/ruby_for_loop.scala 


def rubyStyleForLoop { 
printlinC "for loop using Ruby-style TteratTon”) 
args.foreach { arg => 
printlnCarg) 
} 
} 


rubyStyleForLoop 

args 是 由 传人 的 命令 行 参数 构成 的 一 个 列表 。Scala 将 每 个 列表 元 素 一 个 接着 一 个 的 传人 这 个 
代码 块 。 在 我 们 的 例子 中 ，arg 是 args 列 表 中 的 一 个 元 系 。 在 Ruby 中 ， 与 此 功能 等 价 的 代码 是 
args.each{larg| printlnCarg)}。 指 定 每 个 参数 的 语法 略 有 不 同 ， 但 是 思想 是 相同 的 。 下 面 
是 实际 运行 的 代码 : 

batate$ scala code/scala/ruby_for_loop.scala freeze those knees chickadees 

for loop using Ruby-style iteration 

freeze 

those 


knees 
chickadees 


稍 后 ,你 会 发 现 日 己 会 更 多 地 使 用 这 种 迭代 方法 而 不 是 其 他 命令 式 风 格 的 循环 。 但 是 既然 我 
们 正 将 注意 力 集 中 在 山 丘 上 的 那 座 房子 上 ， 那 就 将 这 方面 的 话题 推迟 一 些 。 




















5.2.4 范围 与 元 组 
与 Ruby 一 样 ，Scala 文 持 一 等 类 型 的 范围 (range )。 局 动 控制 台 ， 输 入 下 面 这 些 代 码 : 


scala> val range = 0 until 10 
range: Range = Range(0, 1, 2, 3, 4, 5, 6, 7, 8, 9) 





scala> range.start 
res2: Int = 0 


scala> range.end 
res3: Int = 10 


原来 如 此 。 它 很 像 Ruby 的 范围 。 你 也 可 以 指定 步 长 : 


scala> range.step 
res4: Int = 1 


scala> (0 to 10) by 5 
res6: Range = Range(0, 5, 10) 


scala> (0 to 10) by 6 
res7: Range = Range(0, 6) 


Ruby 的 范围 1..10 相 当 于 从 1~10， 而 Ruby 的 范围 1...10 相 当 于 1 下 到 10。 前 者 包含 尾 端点 。 


scala> (0 until 10 by 5) 
res0: Range = Range(0, 5) 
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你 也 可 以 用 下 面 方法 指定 范围 变化 的 方 回 : 

scala> val range = (10 until 0) by -1 

range: Range = Range(10，9，8，7，6，5，4，3，2，1) 
但 是 方 回 是 无 法 被 推 上 新 出 来 的 : 

scala> val range = (10 until 0) 


range: Range = Range() 


scala> val range = (0 to 10) 
range: Range.Inclusive = Range(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10) 


无 论 你 为 范围 设置 的 结束 点 为 多 少 ，!] 都 是 默认 步 长 。 范 围 不 限于 整数 : 
scala> val range = 'a to ‘'e' 
range: RandomAccessSeq.Projection[Char] = RandomAccessSeq.Projection(a, b, c, d, e) 


Scala 会 为 你 做 一 些 隐 式 类 型 转换 。 事 实 上 ， 当 你 指定 了 一 个 for 语 句 ， 也 就 等 于 指定 了 一 个 
汇 围 。 

和 Prolog 一 样 ，Scala 提 供 了 元 组 。 元 组 是 一 个 固定 长 度 的 对 和 象 集合 。 你 在 许多 其 他 也 数 式 编 
程 语 言 中 也 会 发 现 这 个 模式 。 元 组 中 的 对 象 可 以 具有 不 同类 型 。 在 纯 咕 数 式 编程 语言 中 ,程序 员 
经 常用 元 组 表示 对 象 以 及 它们 的 属性 。 看 看 这 个 例子 : 


scala> val person = ("Elvis", "Presley") 
person: (JjJava.lang.String, Java.lang.String) = (Elvis,Presley) 


























scala> person._1 
res9: Java.lang.String = Elvis 


scala> person. 2 
res10: java.lang.String = Presley 


scala> person. 3 
<console>:6: error: value 3 is not a member of (java.lang.String, java.1lang.String) 
person._3 


人 
Scala 使 用 元 组 而 不 是 列表 进行 多 值 赋值 : 
scala> val (x, y) = (1, 2) 
XxX: INt = 1 
vy Ln = 
由 于 元 组 具有 固定 长 度 ，Scala 可 以 基于 每 个 元 组 元 素 的 值 对 其 进行 静态 类 型 检查 : 
scala> val (a, b) = (1，2，3) 
<console>:15: error: constructor cannot be instantiated to expected type; 
found  : (Tl1, T2) 
required: (Int, Int, Int) 


val (as bb) = (C120 3) 
和 


<console>:15: error: recursive value x$1 needs type 
val (a, b) = (1, 2, 3) 


人 
有 了 这 些 基础 后 ， 我 们 把 它 整 合 在 一 起 ， 创 造 出 一 些 面 癌 对 象 的 类 定义 。 
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5.2.5 ” ”Scala 中 的 类 





在 Scala 中 ， 可 以 只 用 一 行 代 码 定义 那些 只 有 属性 而 没有 方法 或 构造 可 的 简单 类 : 

class Person(firstName: String, lastName: String) 

在 定义 一 个 简单 的 值 类 型 时 无 需 指定 定义 体 。Person 类 是 公有 的 ( public )， 并 具有 
firstName 和 1astName 两 个 属性 。 

你 可 以 在 控制 台中 使 用 这 个 类 : 


scala> class Person(firstName: String, lastName: String) 
defined class Person 





scala> val gump = new Person(- Forrest ， "Gump") 
gump: Person = PersonQ7c6d75b6 


但 这 还 远 远 不 够 。 面 向 对 象 的 类 集 数 据 和 行为 于 一 身 。 接 下 来 , 我 们 用 Scala 构 建 一 个 完整 的 
面 问 对 象 的 类 。 我 们 给 这 个 类 起 名 为 Compass《〈 罗 盘 )。 罗 一 初始 指 问 北面。 我 们 可 以 让 这 个 罗 
盘问 左 或 四 右 转 动 90" 并 且 相 应 地 更 新 指 问 。 这 里 是 天 于 Compass 关 的 全 部 Scala 代 人 码 : 


scala/compass.scala 




















class Compass { 


val directions = List("north”", "east"”", "south"”", "west") 
var bearing = 0 

print("Initial bearing: ") 

println(direction) 


def direction() = directions(bearing) 


def informCturnDirection: String) { 
printinC"Turning ”+ turnDirection + 


rr 了 了 


. Now bearing + direction) 


l 


def turnRight() £ 
bearing = (bearing + 1) % directions.size 
informC "right") 


~ 


了 


def turnLeft() £ 
bearing = (bearing + (directions.size - 1)) % directions.size 
i1nformC "left") 


| 
| 


val myCompass = new Compass 


myCompass .turnRight 
myCompass .turnRight 
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myCompass.turnLeft 
myCompass.turnLeft 
myCompass.turnLeft 


这 里 的 语法 相对 俐 单 , 并 具备 一 些 显 闭 的 特点 。 构 造 表 负责 定义 实例 变量 (至少 包括 那些 你 
没有 传 给 构造 各 的 变量 ) 和 方法 。 与 Ruby 不 同 , 所 有 方法 的 定义 都 包含 参数 类 型 和 名 子 ， 并 且 初 
始 化 代码 块 不 包含 在 任何 一 个 方法 里 面 。 让 我 们 将 代码 分 解 ， 一 步 步 详 细 介 绍 : 


class Compass { 








val directions = List("north"”", "east", "south", "west") 


van haarinn ~ NN 
Va VCar liy 二 Vv 


print("Initial bearing: ") 
printlin(direct1ion) 


类 定义 后 面 的 整个 代码 块 实际 上 就 是 构造 各 。 构 造 述 包括 一 个 方 同 ( direction ) 列表 和 一 个 
方位 ( bearing )， 方 位 仪 仅 是 方向 列表 的 下 标 。 之 后 ， 转 动 操作 会 操纵 方位 。 接 下 来 ， 我 们 提供 
了 一 些 方便 的 方法 癌 类 的 使 用 者 显示 当前 方位 : 

def direction() = directions(bearing) 


def inform(turnDirection: String) { 
printinC"Tuyurning ”+ turnDirection + ". Now bearing ”+ direction) 

} 

这 个 构造 天 继续 进行 方法 定义 。 接 下 来 是 一 个 方法 定义 。di rection 方 法 只 是 将 di rections 
列表 中 对 应 bearing 下 标 值 的 那个 元 素 返 回 。Scala 提 供 了 一 种 单行 方法 定义 的 替代 语法 , 使 用 这 
种 语法 可 以 省 略 那个 括 起 方法 定义 体 的 括号 。 

当 使 用 者 转动 罗盘 ，inform 方 法 将 输出 一 条 友好 的 信息 。 它 接受 一 个 简单 的 参数 ， 即 转动 
的 方 品 。 这 个 方法 没有 返回 值 。 下 面 让 我 们 看 看 这 些 人 处理 转 动 的 方法 吧 。 

def turnRight() { 

bearing = (bearing + 1) % directions.size 


informC "right") 
上 




















def turnLeft() { 
bearing = (bearing + (directions.size - 1)) % directions.size 
informC "left") 
} 
这 些 处 理 转动 的 方法 根据 转动 的 方 同 改变 方位 值 ,% 操 作 符 是 一 个 取 模 操作 。( 这 个 操作 执行 
一 个 除法 操作 ， 忽 略 商 值 ， 只 返回 余数 。) 其 结果 是 当 罗 级 辣 右 转 时 ,方位 值 加 1; 当 罗 盘问 左 转 
时 ， 方 位 值 减 1。 这 些 方法 还 对 返回 结果 进行 了 适当 地 包 疙 。 
辅助 构造 器 
你 已 经 看 到 了 基本 构造 希 是 如 何 工作 的 了 。 它 是 一 个 用 于 初始 化 类 和 方法 的 代码 块 。 你 也 可 
以 使 用 其 他 替代 品 。 考 虑 一 下 Person 类 ， 它 有 两 个 构造 器 : 
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scala/constructorscala 


class Person(first name: String) { 
printlnC"Outer constructor") 
def this(first name: String, last name: String) { 
this(first name) 
printlnC"Inner constructor") 


} 
def talk() = println(C HT ) 


val bob = new Person("Bob") 
val bobTate = new Person("Bob", "Tate") 


这 个 类 拥有 一 个 只 接受 单一 参数 firstName 的 构造 融和 一 个 名 为 talk 的 方法 。 注 意 那个 
this 方 法 ， 它 是 这 个 类 的 第 二 个 构造 部 。 它 接受 两 个 参数 : firstName 和 1astName。 一 开始 ， 
这 个 方法 通过 this 调 用 只 有 一 个 firstName 参 数 的 主 构造 妖 。 

类 定义 后 面 的 代码 使 用 了 两 种 方法 实例 化 一 个 person， 第 一 种 方法 使 用 了 主 构造 锅 ， 第 二 
种 方法 则 是 使 用 了 辅助 构造 器 。 


batate$ scala code/scala/constructor.scala 
Outer constructor 
Outer constructor 
Inner constructor 


网 是 这 么 回 事 。 辅 助 构造 融 非 常 重要 ,因为 它们 人 允许 更 为 宽泛 的 使 用 模式 。 让 我 们 看 看 如 何 
创建 类 方法 吧 。 


5.2.6 ”扩展 类 


到 目前 为 止 ,这 些 类 看 起 来 平淡 无 奇 。 我 们 只 是 创建 了 一 些 仅仅 包含 了 属性 和 方法 的 基本 类 。 
在 本 市 中 ， 我 们 将 看 到 一 些 类 之 间 交 互 的 方法 。 

1. 伙伴 对 象 和 类 万 法 

在 Java 和 Ruby 中 ， 你 会 在 类 定义 中 同时 定义 类 方法 和 实例 方法 。 在 Java 中 ， 类 方法 用 static 
关键 字 修 饰 。Ruby 则 使 用 语法 def se1f.class_method。Scala 没 有 采用 这 两 种 策略 。Scala 会 在 
类 定义 中 声明 实例 方法 。 当 一 些 类 只 能 拥有 一 个 实例 时 , 可 以 使 用 object 而 不 是 class 关 键 字 和 定 
义 这 个 类 。 下 面 是 一 个 例子 : 


scalcyring.scala 

















object TrueRing { 
def rule = println("To rule them all") 
} 


TrueRing.rule 
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TrueRing 的 定义 确实 很 像 一 个 类 的 定义 ,但 它 实际 上 是 创建 了 一 个 单 件 (singleton ) 对 象 。 
在 Scala 中 , 对象 定义 和 类 定义 可 以 具有 相同 的 名 称 。 有 了 这 个 方案 , 你 可 以 在 一 个 单 件 对 象 的 声 
明 中 创建 类 方法 而 在 类 声明 中 创建 实例 方法 。 在 我 们 的 例子 中 ，rule 方 法 是 一 个 类 方法 。 这 个 
策略 称 为 伙伴 对 象 ( companion objects ) 。 

2. 继承 

在 Scala 中 继承 相当 简单 多 民 ， 但 语法 却 不 失 精 确 。 这 里 有 一 个 用 Emp1loyee 类 扩展 Person 类 
的 例子 。 注 意 Emp1oyee 的 id 字段 中 保存 了 一 个 额外 的 员工 编号 。 下 面 是 代码 : 


scala/employee.scala 




















class Person(val name: String) { 
def talk(message: String) = printin(name + ”says ”+ message) 
def 1d(): String = name 

} 


class Employee(override val name: String, 
val number: Int) extends Person(name) { 
override def talk(message: String) £{ 
printin(name + " with number ”+ number + " says ”+ message) 


| 


override def 1d():String = number.toString 


| 


val employee = new Employee("Yoda”", 4) 
employee.talk("Extend or extend not. There 1s no try.") 


在 这 个 例子 中 ， 我 们 用 Employee 类 扩展 了 Person 基 类 。 我 们 在 Employee 类 中 增加 了 一 个 
新 的 实例 变量 number， 并 且 重 写 了 talk 方 法 以 增加 一 些 新 的 行为 。 多 数 复杂 的 语法 都 与 类 的 构 
造 顺 定义 有 关 。 注意 , 尽管 你 可 以 省 略 参数 类 型 信息 , 但 必须 为 Person 类 指定 完整 的 参数 列表 。 

无 论 是 在 构造 融 中 还 是 在 任何 扩展 基 类 的 方法 里 ，override 关 键 字 都 是 必需 的 。 这 个 关键 
字 可 以 防止 你 因 无 意 中 的 拼写 错误 而 引入 新 方法 .总 而 言 之 ,这 里 没有 什么 可 以 证 你 大 吃 一 尺 的 。 
但 有 时 ， 我 会 觉得 这 有 点 像 Edward 党 试 抚摸 一 个 脆弱 的 小 例子 。 我 们 继续 …… 

3. trait 

每 种 面 癌 对 象 语 言 都 必须 解决 这 样 的 问题 : 一 个 对 象 可 以 拥有 多 种 不 同 的 角色 。 对 象 可 以 是 
一 个 可 持久 化 、 可 序列 化 的 “灌木 从 ”。 你 肯定 不 想 让 你 的 “灌木 从 ”知道 如 何 将 二 进 制 数据 存 
和 人 MySQL 数据 库 中 。, 为 了 解决 这 个 问题 , C++ 使 用 了 多 重 继承 , Java 使 用 了 接口 (interface ), Ruby 
使 用 了 mixins， 而 Scala 使 用 了 trait。Scala 的 trait 与 Ruby 的 mixin 类 似 ， 用 模块 实现 。 或 者 如 
末 你 喜欢 ， 也 可 以 将 S$Scala 的 trait 看 成 是 Java 的 接口 外 加 一 个 接口 的 实现 。 我 们 将 trait 看 成 是 
一 个 部 分 类 ( partial-class ) 的 实现 。 理 想 情 况 下 ， 它 应 该 可 以 帮 你 解决 一 个 关键 问题 。 下 面 是 一 
个 为 Person 类 增加 trait Nice 的 例子 : 
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scala/nice.scala 


class Person(val name:String) 


trait Nice { 
def greet() = printin( "Howdily doodily.") 
} 


class Character(override val name:String) extends Person(name) with Nice 


val flanders = new Character("Ned") 
flanders .greet 


你 看 到 的 第 一 个 元 取 是 Person 类 ， 它 是 只 有 一 个 名 为 name 属 性 的 简单 类 。 第 二 个 元 系 是 名 
为 Nice 的 trait， 这 就 是 mixin。 它 只 有 一 个 方法 greet。 最 后 一 个 元 素 是 一 个 名 为 Character 的 
类 ， 并 结合 了 trait Nice。 使 用 者 现在 可 以 通过 任何 Character 实 例 调 用 greet 方 法 了 。 输 出 的 
结果 和 你 预计 的 一 样 : 


batate$ scala code/scala/nice.scala 
Howdily doodi1 1y. 


这 里 没有 什么 太 复 杂 的 内 容 。 我 们 可 以 在 任何 Scala 类 中 结合 这 个 这 有 greet 方 法 的 Nice 
trait， 并 引入 greet 行 为 。 





5.2.7 第 一 天 我 们 学 到 了 什么 


由 于 我 们 需要 使 用 同一 种 语言 进行 两 种 不 同 范 型 的 开发 , 所 以 在 第 一 天 的 学 习 中 我 们 涵盖 了 
Scala 语 言 的 大 部 分 内 容 。 第 一 天 的 学 习 告 诉 我 们 S$Scala 文 持 面 加 对 象 概念 ,可 运行 在 Java 虚 拟 机 上 ， 
并 可 以 使 用 现 有 的 Java 库 。Scala 的 语法 与 Java 相 似 并 且 也 是 强 类 型 和 静态 类 型 的 。 然 而 ，Martin 
Odersky 实 现 Scala 是 为 了 在 面 品 对 和 象 编程 和 也 数 式 编程 两 种 疙 型 之 间 搭 建 起 一 座 桥 梁 。 在 第 二 
的 和 学习 中 ， 我 们 会 介绍 函数 式 编程 的 概念 ， 它 会 让 并 发 应 用 程序 设计 起 来 更 为 简单 。 

Scala 的 静态 类 型 也 是 可 以 推 其 出 来 的 ， 用 户 无 需 在 任何 场合 都 显 式 声明 变量 的 类 型 ， 因 为 
Scala 经 癌 可 以 根据 语法 线索 推 新 出 这 些 类 型 。 编 详 硕 也 可 以 强制 类 型 转换 ,比如 整 型 转换 为 字符 
串 ， 在 合理 的 情况 下 ， 编 译 需 还 允许 隐 式 类 型 转换 。 

Scala 的 表达 式 用 法 与 其 他 语言 非常 相似 ， 不 过 在 Scala 中 更 加 严格 一 些 。 绝 大 多 数 条 件 表 达 
式 必 须 是 布尔 类 型 。0 或 Ni1 不 能 充当 条 件 表达 式 ， 它 们 可 用 来 代替 非 真 非 假 。Scala 的 循环 或 控 
制 结构 与 其 他 语言 相 比 倒是 没有 什么 显 车 的 不 同 。Scala 文 持 一 些 更 高 级 的 类 型 ， 比 如 元 组 (由 不 
同类 型 组 成 的 固定 长 度 列表 ) 和 范围 〈 固定 不 变 的 、 包 括 所 有 病 点 元 双 的 有 序数 学 序列 )。 

Scala 的 类 与 Java 中 的 类 很 相似 , 但 是 它们 不 文 持 类 方法 ,而 是 使 用 了 一 种 称 为 伙伴 对 象 的 概 
念 将 同一 个 类 的 类 方法 和 实例 方法 混在 一 起 。 在 Ruby 使 用 mixin 和 Java 使 用 接口 的 地 方 ，Scala 使 
用 一 个 类 似 mixin 的 名 为 trait 的 结构 。 

在 第 二 天 的 学 习 里 , 你 会 全 面 地 学 习 Scala 的 函数 式 特 性 。 你 会 学 习 代码 块 、 集 合 、 不 变量 以 
及 一 些 高 级 的 内 置 方法 ， 如 fo1dLeft。 
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5.2.8 第 一 天 自习 


第 一 天 的 Scala 学 习 涵 兰 了 很 多 和 内容, 但 是 这 些 内 容 多 是 为 大 家 所 熟知 的 。 这 些 面 咎 对 象 的 概 
念 你 也 应 该 十 分 熟悉 。 这 里 的 练习 与 早先 书 中 的 练习 比 起 来 略微 有 些 深度 , 但 是 你 应 该 是 可 以 应 
付 的 。 
找 














口 Scala 的 API。 
口 对 比 Java 与 Scala。 
口 关于 val 和 var 的 讨论 。 
做 
口 编写 一 个 游戏 ， 可 以 用 人、0O 和 空 字 符 玩 井 字 游戏 ( tic-tac-toe )， 检 查 是 否 有 胜 者 ， 或 是 
否 不 分 胜 人 负 ， 或 目前 没有 胜 者 。 适 当地 使 用 类 。 
口 加 分 题 : 让 两 个 选手 玩 井 字 游 戏 。 


5.3 第 二 天 : 修 勇 灌木 从 和 其 他 新 把 戏 


在 《和 勇 刀 手 爱 德 坐 》 中， 当 Edward 意 识 到 他 来 目 于 山 丘 上 的 那 座 房 子 ， 并 且 他 的 独特 能 力 可 
以 让 他 在 当下 社会 中 获得 一 个 特殊 的 位 置 时 ， 他 感觉 一 切 就 像 做 梦 一 样 。 

任何 了 解 编 程 语言 历史 的 人 虱 曾 经 见识 过 这 样 的 事情 。 当 面向 对 象 编程 汇 型 还 是 新 鲜 事 物 
时 ， 大 家 都 无 法 接受 Smalltalk， 因 为 这 个 范 型 太 新 。 我 们 需要 的 是 一 门 既 可 以 继续 文 持 过 程 化 纺 
程 ， 同 时 又 可 以 进行 面 回 对 象 思 想 编 程 试验 的 声言 。C++ 新 的 面 问 对 象 方式 可 以 与 原 有 C 语 言 的 
过 程 化 特性 很 好 地 共存 。 结 果 是 大 家 可 以 在 老 旧 的 上 下 文 环 境 中 开始 使 用 新 的 编程 手法 。 

现在 是 时 候 让 Scala 以 函数 式 编 程 声言 的 号 份 接受 考验 了 了。 有 些 用 法 初次 看 起 来 很 别扭 , 不 过 
其 思想 很 重要 ,功能 也 很 强大 。 它们 将 构成 并 发 应 用 的 基础 ， 你 将 在 第 三 天 的 学 习 中 见识 到 这 些 
并 发 应 用 。 我 们 从 一 个 简单 的 函数 开始 今天 的 学 习 : 

scala> def double(x:Int):Int =x*2 

double: (Int)Int 















































scala> double(4) 
res0: Int = 8 


在 Scala 中 定义 一 个 函数 与 Ruby 十 分 相似 。def 关 键 字 既 可 以 定义 函数 也 可 以 定义 方法 。 参数 
以 及 参数 的 类 型 紧 随 其 后 。 然后 , 你 可 以 指定 一 个 可 选 的 返回 类 型 。Scala 经 常 可 以 推 师 出 返回 结 
来 的 类 型 。 

要 调用 该 函数 ， 只 需 使 用 也 数 名 和 参数 列表 即 可 。 注意 , 这 与 Ruby 不 同 , 这 里 的 括号 在 上 下 
文 当中 是 必需 的 。 

这 是 单行 方法 定义 。 你 也 可 以 使 用 块 形式 来 定义 一 个 方法 : 

scala> def double(x:Int):Int = { 

| X 
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| + 
double: (Int)Int 


scala> double(6) 
res3: Int = 12 


在 返回 关 型 Int 后 面 的 = 是 必需 的 。 漏 抒 的 话 会 出 错 。 这 是 冰 数 声明 的 主要 形式 。 你 也 许 会 
看 到 一 些 寓 有 微小 变化 的 郴 数 声 明 形 式 ， 请 如 省 略 参 数 ， 但 这 种 形式 是 最 常见 的 。 

接 下 来 继续 来 学 习 变 量 , 你 会 在 函数 中 使 用 到 它们 。 如 有 果 你 想 了 解 纯 函 数 式 编程 的 模型 ， 那 
么 你 就 要 专注 于 变量 的 生命 周期 。 














5.3.1 对 比 var 和 和 val 


Scala 基 于 Java 虚 拟 机 ， 并 有 旦 和 Java 有 着 紧密 的 关系 。 但 在 某 些 方面 ， 这 种 设计 日 标 限 制 了 这 
门 语言 ， 而 在 其 他 方面 ，Scala 可 以 充分 利用 过 去 15 年 或 20 年 编程 语言 的 发 展 。 你 会 看 到 Scala 支 
持 并 发 编程 的 设计 得 到 了 越 来 越 多 的 重视 。 但 是 如 采 你 不 加 守 基 本 的 设计 原则 , 世上 所 有 关于 并 
发 的 特性 都 无 法 帮助 你 。 可 变 的 状态 是 糟糕 的 。 当 你 声明 变量 时 ,应 该 使 用 不 变量 ， 这 样 可 以 避 























免 状 态 冲 突 。 在 Java 中 ， 这 意味 着 使 用 final1 关 键 字 。 而 在 Scala 中 ， 不 变量 意味 着 使 用 val 而 不 
是 var。 
scala> var mutable = "I am mutable" 


mutable: java.lang.String = I am mutable 


scala> mutable = "Touch me, change me...”" 
mutabie: JjJava.liang.String = Touch me, change me... 
scala> val immutable = "I am not mutable" 


immutable: java.lang.String = I am not mutable 


scala> immutable = "Can't touch this”" 
<console>:5: error: reassignment to val 
immutable = "Can't touch this" 
人 


var 变 量 的 值 是 可 变 的 ， 而 val 变量 的 值 则 是 不 变 的 。 在 控制 台中 ， 为 方便 起 见 , 你 可 以 多 次 
重复 定义 一 个 变量 ， 即 使 你 使 用 的 是 val。 一 旦 你 脱离 控制 台 ， 重 定义 val 变 量 会 引发 一 个 错误 。 

在 某 些 方面 ，Scala 引 入 var 风 格 ( var-style ) 变量 以 支持 传统 的 命令 式 编 程 风格 ,但 是 如 果 
你 正在 学 习 Scala， 最 好 避免 使 用 var， 特 别 是 当 你 希望 设计 出 更 好 的 并 发 程序 时 。 这 一 基本 设计 
理念 是 区 别 函 数 式 编程 写 面 向 对 象 编程 的 关键 要 系 : 可 变 状态 限制 并 发 。 

下 面 继续 学 习 一 些 我 最 喜欢 的 图 数 式 语言 的 特性 : 集合 操作 。 























5.3.2 集合 


函数 式 编程 语言 因 其 其 为 好 用 的 操作 集合 的 特性 而 闻名 已 久 。 最 早 的 函数 式 编程 语言 之 一 
Lisp 就 是 围绕 处 理 列表 的 想法 而 设计 的 , 这 个 名 字 就 是 LISt Processing 的 缩写 。 用 函数 式 编程 语言 
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可 以 很 容易 地 构建 出 包含 数据 和 代码 的 复杂 结构 。Scala 的 主要 集合 类 型 包括 列表 ( list )、 集 ( set) 
和 映射 (map )。 

1. 列表 

和 大 多 数 函 数 式 编程 语言 一 样 ， 最 实用 的 数据 结构 是 列表 。Scala 中 的 列表 类 型 为 List， 它 
-类 事物 的 有 序 集合 ， 可 随机 访问 。 在 控制 合 中 输入 这 些 列 表 : 

scala> List(1, 2, 3) 

res4: List[Int] = List(1, 2, 3) 


注意 ， 第 一 行 的 返回 值 : List[Int] = List(1，2，3)。 这 个 值 不 仪表 明了 整个 列表 的 类 
型 ， 而 且 表 明了 列表 中 的 数据 结构 类 型 。 一 个 字符 串 列表 如 下 所 示 : 


scala> List("one”, "two", “three") 
res5: List[jJava.lang.String] = List(one, two, three) 


如 果 你 在 这 里 看 到 了 一 些 Java 的 影子 ， 那 你 是 对 的 。Java 有 一 个 特性 叫做 泛 型 ( generics )， 
这 种 特性 可 以 在 列表 或 数组 这 样 的 数据 结构 中 输入 任意 元 系 。 当 你 有 一 个 结合 了 字符 串 和 整 型 数 
的 列表 时 ， 让 我 们 来 看 一 下 会 发 生 什么 : 


scala> List("one™”, "two"”, 3) 
res6: List[Any] = List(one, two, 3) 


这 里 得 到 了 数据 类 型 Any， 它 是 Scala 中 的 一 个 通用 数据 类 型 。 下 面 是 一 个 访问 列表 中 元 素 
的 例子 : 


scala> List( -one ` ， "two"”, 3)(2) 
res7: Any = 3 




















后 








scala> List("one”", "two", 3)(4) 
java.util.NoSuchElementException: head of empty list 
at scala.Nil$.head(List.scala:1365) 
at scala.Nil$.head(List.scala:1362) 
at scala.List.apply(List.scala:800) 

at .<init>(<console>:5) 

at .<clinit>(<console>) 

at RequestResult$.<init>(<console>:3) 
at RequestResult$.<clinit>(<console>) 
at RequestResult$result(<console>) 


at sun.reflect.NativeMethodAccessorImpl.invokeO(Native Met... 
代码 中 使 用 了 0 操作 符 。 列 表 访 问 是 一 个 函数 ， 所 以 使 用 的 是 0 而 不 是 口 。 与 Java 和 Ruby 
一 样 ，Scala 的 列表 下 标 也 从 0 开始 。 不 过 与 Ruby 不 同 的 是 ， 访 问 超出 列表 下 标 范 围 的 元 素 时 会 抛 
出 异常 。 
你 可 以 用 负数 作为 下 标 ， 早 期 的 Scala 版 本 会 返回 列表 的 第 一 个 元 素 : 


scala> List("one”, "two”", 3)(-1) 
res9: Any = one 











scala> List("one”, "two”, 3)(-2) 
resl0: Any = one 
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scala> List("one™”, "two"” , 3)(-3) 
resll: Any = one 


由 于 这 种 行为 与 表示 下 标 值 过 大 的 异常 NoSuchE1ement 有 些许 不 一 致 ,所 以 2.8.0 版 本 修改 了 
这 种 行为 ， 让 它 返 回 java.1ang.IndexOutOfBoundsException 异 常 了 。 

最 后 提示 一 下 ，Scala 中 的 Ni 是 一 个 空 列 表 

scala> N11 

res33: Nil.type = List() 

当 介 绍 代码 块 的 时 候 ， 我 们 会 使 用 列表 作为 基本 的 组 成 部 分 。 不 过 现在 ,请 先 丸 耐 一 下 。 我 
打算 先 介绍 一 些 其 他 的 集合 类 型 。 























2. 集 
集 与 列表 类 似 ， 不 过 集 没 有 任何 显 式 的 顺序 。 你 可 以 通过 Set 关 键 字 指定 一 个 集 。 
scala> val animals = Set("lions”, "tigers”, "bears") 


animals: scala.collection.immutable.Set[jJava.lang.String] = 
Set(lions, tigers, bears) 


从 集中 增删 元 又 很 容易 : 
scala> animals + "armadillos" 


res25: scala.collection.1immutable.Set[java.1lang.String] 
Set(lions, tigers, bears, armad1illos) 





scala> animals - "tigers”" 
res26: scala.collection.immutable.Set[java.lang.String] = Set(lions, bears) 


scala> animals + Set("armadillos”, "raccoons") 
<console>:6: error: type mismatch ; 
found : Scala.collection.immutable.Set[java.lang.String] 
required: java.lang.String 
animals + Set("armadillos”", “raccoons") 
入 


记 住 ， 集 操作 是 没有 破坏 性 的 。 每 个 集 操 作 都 会 建立 一 个 新 的 集 而 不 是 修改 旧 的 集 。 默 认 情 
况 下 , 集 是 不 可 改变 的 。 你 可 以 看 到 从 集 里 增删 一 个 元 系 轻 而 易 举 , 但 是 你 无 法 像 Ruby 那 样 通过 
+ 或 -运算 符合 并 集 。 在 Scala 中 ， 使 用 ++ 和 - -运算 符 来 完成 集 的 并 和 差 操 作 。 

scala> animals ++ Set("armadillos”, "raccoons") 


res28: scala.collection.immutable.Set[java.lang.String] 
Set(bears, tigers, armadillos, raccoons, lions) 

















scala> animals -- Set("'lions”", "bears'") 
res29: scala.collection.immutable.Set[java.lang.String] = Set(tigers) 


你 也 可 以 使 用 *** 来 完成 集 的 交 操 作 ( 返回 两 个 集中 相同 的 元 素 组 成 的 新 集 ): 


scala> animals ** Set("armadillos”, "raccoons”", "lions", "tigers") 
resl: scala.collection.immutable.Set[java.lang.String] = Set(lions, tigers) 








GD 从 Scala 2.8.0 版 本 开始 使 用 &，** 已 经 被 废弃 。 
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与 列表 不 同 ， 集 与 次 序 无 关 。 这 意味 者 集 相 等 与 列表 相等 是 两 个 不 同 的 概念: 
scala> Set(l1, 2, 3) == Set(3, 2, 1) 
res36: Boolean = true 


scala> List(1, 2, 3) == List(3，2，1) 
res37: Boolean = false 


到 目前 为 止 ， 集 操作 已 经 介绍 的 足够 多 了 。 接 下 来 介绍 映射 。 

3. 映射 

映射 是 一 个 键 值 (key-value ) 对 ， 类 似 于 Ruby 的 散 列 (Hash )。 它 的 语法 你 也 应 该 很 熟悉 : 
scala> val ordinals = Map(0 -> “zero ，1 -> "one”, 2 -> “two ) 


ordinals: scala.collection.immutable.Map[Int,jJava.lang.String] = 
Map(0 -> zero, 1 -> one, 2 -> two) 





scala> ordinals(2) 
res41: java.lang.String = two 


与 Scala 的 列表 和 集 一 样 ， 你 可 以 通过 Map 关 键 字 指定 一 个 映射 。 使 用 -> 操作 符 将 映射 的 两 个 
元 素 隔 开 。 上 面 的 代码 中 使 用 了 一 些 语 法 糖 , 使 得 创建 一 个 Scala 映 射 变 得 很 容易 。 接 下 来 使 用 忆 
外 一 种 形式 的 散 列 映射 ， 并 指定 key 和 value 的 类 型 : 

scala> import scala.collection.mutable.HashMap 

import scala.collection.mutable.HashMap 


scala> val map = new HashMap[Int, String] 
map: scala.collection.mutable.HashMap[Int,String] = MapQ) 











scala> map += 4 -> "four" 
scala> map += 8 -> "eight" 


scala> map 
res2: scala.collection.mutable.HashMap[Int,String] = 
Map(4 -> four, 8 -> eight) 

首先 ， 我 们 为 可 变 HashMap 导 和 一 个 Scala 库 。 这 意味 看 这 个 散 列 映射 中 的 全 是 可 以 改变 的 。 
接 下 来 ， 声明 一 个 名 为 map 的 不 变量 。 这 意味 着 这 个 map 的 引用 无 法 改变 。 注 意 ， 我 们 还 指定 了 
映射 的 类 型 。 最 后 ， 回 这 个 散 列 映射 中 添加 一 些 键 信 对 ， 并 返回 结 末 。 

如 采 你 指定 了 错误 的 类 型 ， 将 显示 以 下 错误 信息 : 

scala> map += "zero” -> 0 

<console>:7: error: overloaded method value += with alternatives (Int)map .MapTo 


<and> ((Int, String))Unit cannot be applied to ((java.lang.String, Int)) 
map += "Zero”" -> 0 














和 

和 预想 的 一 样 ，Scala 报 告 了 一 个 类 型 错误 。 无论 是 在 编译 阶段 还 是 在 运行 阶段 ,类 型 约束 都 
是 强制 执行 的 。 现 在 你 已 经 了 解 了 有 关 集 合 的 基本 语法 和 操作 ， 下 面 我 们 次 入 了 解 一 些 细节 。 

4. Any 和 Nothing 

在 介绍 匿名 也 数 之 前 ， 先 来 了 解 一 下 Scala 中 的 类 层次 关系 。 当 你 结合 Java 使 用 Scala 时 ,你 会 
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经 党 关注 Java 的 类 层次 关系 。 不 过 ， 你 也 应 该 知道 一 些 有 关 S$cala 类 型 的 内 容 。Any 是 Scala 类 层次 
体系 中 的 根 类 。 这 稼 稼 难以 理解 ， 不 过 你 要 知道 所 有 的 Scala 类 型 都 继承 自 Any 类 。 

同样 ，Nothing 类 是 所 有 类 型 的 子 类 。 辟 如， 对 一 个 返回 集合 的 函数 来 说 ， 隐 数 也 可 以 返回 
Nothing， 这 与 给 定 函 数 的 返回 值 类 型 相符 。Scala 的 类 层次 体系 如 图 5-1 所 示 。 所 有 类 都 继承 自 
Any， 并 且 Nothing 类 继承 自 所 有 类 。 























图 $-1 Any 和 Nothing 


当 你 处 理 ni1 的 概念 时 ， 这 里 有 些 细微 的 差别 。Nu11 是 一 个 trait，nu11 则 是 Nu11 的 一 个 实 
例 ， 与 Java 中 的 nu11 类 似 ， 意思 是 一 个 空 值 。 一 个 空 集合 是 Ni1， 而 Nothing 是 一 个 trait， 是 所 
有 类 的 子 类 。Nothing 类 没有 实例 ， 所 以 不 能 像 Nu11 那 样 对 其 解 引 用 ( dereference )。 例 如 ， 抛 出 
异常 的 方法 的 返回 值 类 型 为 Nothing， 意 思 是 根本 没有 返回 值 。 

记 住 这 些 规则 ， 你 就 会 一 路 顺利 。 接 下 来 我 们 将 在 集合 上 使 用 一 些 高 阶 函 数 。 








5.3.3 ”集合 与 函数 


在 开始 研究 那些 图 数 式 基础 更 加 坚实 的 语言 之 前 , 我 想 先 正式 介绍 一 些 我 们 一 直 在 使 用 的 概 
念 。 站 当 其 冲 的 概念 就 是 高 阶 ( high-order ) 哨 数 。 

与 Ruby 和 Io 一 样 ， 有 陨 阶 冰 数 ，Scala 的 集合 就 会 变 得 更 加 有 吸引 力 。 正 如 Ruby 使 用 each 
以 及 Io 使 用 foreach 一 样 ，Scala 可 以 将 函数 传递 给 foreach。 这 个 你 一 直 使 用 的 基础 概念 就 是 高 
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阶 函 数 。 通 俗 地 说 ， 高 阶 函 数 就 是 一 个 生成 或 使 用 号 数 的 函数 。 更 具体 点 说 ， 高 阶 函 数 是 一 个 以 
其 他 函数 作为 输入 参数 或 以 函数 作为 返回 结果 的 函数 ,这 种 使 用 其 他 吧 数 来 构造 函数 的 方法 是 了 
数 式 编程 语言 家 族 中 的 关键 概念 ， 并 且 它 还 会 影响 使 用 其 他 语言 编写 代码 的 方式 。 

Scala 对 高 阶 函数 提供 了 强大 的 支持 。 我 们 没有 时 间 去 看 一 些 高 级 主题 了 ， 诸 如 偏 应 用 卫 数 
( partially applied function ) 或 柯 里 化 (currying )， 但 是 我 们 会 学 习 将 人 简单 函数 (也 党 第 被 称 为 代 
码 块 ) 作为 参数 传递 给 集合 的 方法 。 你 可 以 把 一 个 函数 赋 给 任意 一 个 变量 或 参数 ,也 可 以 将 它们 
作为 参数 传 给 困 数 , 还 可 以 将 它们 作为 图 数 返回 值 返回 。 我 们 会 集中 介绍 一 下 匿名 辆 数 ， 它 们 将 
作为 输入 参数 传递 给 一 些 更 为 有 趣 的 针对 集合 的 方法 。 

1. foreach 

我 们 要 研究 的 第 一 个 困 数 是 foreach， 它 是 Scala 中 的 主要 迭代 方法 。 与 Io 一 样 ， 针 对 集合 ， 
foreach 方 法 接受 一 个 代码 块 作为 参数 。 在 Scala 中 ， 你 可 以 用 variableName => yourCode 这 样 
形式 来 表示 代码 块 . 


scala> val list = List("frodo", "samwise”, "pippin") 
list: List[java.lang.String] = List(frodo, samwise, pippin) 



































samwise 

pippin 

hobbit => println(Chobbit) 是 一 个 匿名 函数 ， 即 没有 名 字 的 函数 。 在 这 个 声明 中 ，=> 的 
左边 是 参数 ， 碳 侧 是 代码 。foreach 调 用 这 个 匿名 函数 ， 并 将 列表 中 的 每 个 元 组 作为 输入 参数 传 
递 给 匿名 函数 。 你 可 能 已 经 猜 到 了 ， 你 也 可 以 针对 集合 映射 使 用 相同 的 技术 , 尽管 元 系 的 次 序 无 

















放 作 证 。 
scala> val hobbits = Set( frodo ` ， "samwise”, "pippin") 


hobbits: scala.collection.immutable.Set[java.lang.String] = 
Set(frodo, samwise, pippin) 


scala> hobbits.foreach(hobbit => printinChobbit)) 
frodo 
samwise 


pippin 


scala> val hobbits = Map("frodo™" -> "hobbit", 
"samwise” -> "hobbit", "pippin” -> "hobbit") 

hobbits: scala.collection.immutable.Map[java.lang.String,]java.lang.String] = 
Map(frodo -> hobbit, samwise -> hobbit, pippin -> hobbit) 


scala> hobbits.foreach(hobbit => printlin hobbit)) 

(frodo,hobbit) 

(samwise,hobbit) 

(pippin,hobbit) 

当然 了 ,映射 会 返回 元 组 而 不 是 元 组 中 的 元 孙 。 你 应 该 还 记得 ，foreach 可 以 访问 元 组 的 任 
意 一 问 ， 像 这 样 : 
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scala> hobbits.foreach(hobbit => printlnChobbit. 1)) 
frodo 
samwise 


pippin 


scala> hobbits.foreach(hobbit => printlnChobbit., 2)) 
hobbit 
hobbit 
hobbit 


有 了 这 些 匿名 函数 ,你 可 以 做 的 将 远 远 不 止 这 些 迭 代 。 我 完 市 你 了 解 一 些 基 础 知识 ,然后 学 
习 Scala 将 消 数 与 集合 结合 使 用 的 其 他 一 些 有 趣 的 方法 。 

2. 更 多 列表 方法 

我 要 对 在 这 里 简短 地 保留 一 下 , 和 完 介 绍 儿 个 有 关 操 作 列 表 的 方法 。 这些 基本 的 方法 提供 了 在 

行 手 工人 代 或 递归 列表 时 所 需 的 特性 。 首先 ， 下面 这 些 方法 用 于 测试 列表 是 否 为 空 或 检查 列表 
Rs 


scala> 1ist 
res23: List[java.lang.String] = List(frodo, samwise, pippin) 























scala> list.1isEmpty 
res24: Boolean = false 


scala> N11.1sEmpty 
res25: Boolean = true 





scala> list.1iength 
res27: Int = 3 


scala> 1ist.size 
res28: Int = 3 


， 你 既 可 以 使 用 1ength 也 可 以 使 用 size 去 检查 一 个 列表 的 大 小 。 男 外 还 要 记 住 ，Ni1 
os 人 与 Prolog 一 样 ， 获 取 列 表 的 头 和 尾 对 递归 非常 有 用 。 


scala> list.head 
res34: JjJava.lang.String = frodo 





scala> list.tail 
res35: List[java.lang.String] = List(samwise, pippin) 


scala> list.last 
res36: Java.lang.String = pippin 


scala> list.1init 
res37: List[java.lang.String] = List(frodo, samwise) 


这 真 让 人 吃惊 。 你 可 以 使 用 head 和 init 从 头 开 始 递归 列表 ， 或 使 用 1ast 和 tai1 从 尾部 开始 
递归 列表 。 我 们 后 续 会 更 多 地 使 用 递归 。 下 面 用 几 个 有 趣 且 简便 的 方法 来 学 习 它 们 的 使 用 方法 : 
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scala> 
res29: 


scala> 
res30: 


scala> 
res31: 


scala> 
res32: 


1list.reverse 
List[java.lang.String] = List(pippin, samwise, frodo) 


1ist.drop(]1) 
List[java.lang.String] = List(samwise, pippin) 


1ist 
List[java.lang.String] = List(frodo, samwise, pippin) 


1ist.drop(C2) 
List[java.lang.String] = List(pippin) 


这 些 方法 的 行为 和 预期 的 一 样 。reverse 返 回 一 个 倒序 列表 , drop(n) 返 回 一 个 前 n 个 元 叉 被 





删除 后 的 列表 ， 但 不 修改 原 列 表 。 

3. 计数 、 映 射 、 过 滤 以 及 其 他 

与 Ruby 一 样 ，Scala 拥 有 许多 采用 不 同方 式 操 作 列 表 的 方法 。 你 可 以 用 给 定 的 条 件 过 小 一 个 
列表 , 用 任何 你 想 要 的 标准 排序 列表 , 用 列表 中 的 各 个 元 素 作 为 输入 来 创建 其 他 列表 ,并 且 你 还 











可 以 创建 聚合 值 。 
scala> val words = List( peg ， al ” ， "bud”", "kelly') 
words: List[java.lang.String] = List(peg, al, bud, kelly) 
scala> words .count(word => word.size > 2) 
res43: Int = 3 
scala> words.filter(word => word.size > 2) 
res44: List[java.liang.String] = List(peg, bud, keliy) 
scala> words.map(word => word.s1ze) 
res45: List[Int|] = List(3, 2, 3, 5) 
scala> words.forall(word => word.size > 1) 


res46: 


scala> 
res47: 


scala> 
res48: 


一 开始 


Boolean = true 


words .exists (word => word.size > 4) 
Boolean = true 


words .exists(word => word.size > 5) 
Boolean = false 


， 声 明 一 个 Scala 列 表 ， 然后 计算 有 和 多少 个 长 度 大 于 2 的 单词 。count 方 法 调用 代码 块 


word => word.size > 2， 对 每 个 列表 中 的 元 素 按 word.size > 2 进行 评估 。count 方 法 可 以 计 








算出 所 有 求 值 结 果 为 真 的 表达 式 的 个 数 。 

用 同样 方法 ，words .filter Cword=>word.size>2) 返 回 列表 中 所 有 长 度 大 于 2 的 元 素 所 组 
成 的 新 列表 ,这 很 像 Ruby 中 的 select 方 法 。 用 同样 的 模式 ,map 使 用 列表 中 所 有 单词 的 长 度 值 组 
成 了 一 个 新 的 列表 。 如 果 代 码 块 对 于 集合 中 的 所 有 元 系 都 返回 true 的 话 , 那么 foral1 返 回 true。 
如 末代 码 块 仅 对 集合 中 的 某 一 个 元 际 返回 true， 那 么 exists 方 法 返回 true。 
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有 时 ,你 可 以 使 用 代码 块 来 泛 化 一 个 特性 以 得 到 更 为 强大 的 功能 。 例 如 ， 你 可 能 需要 使 用 传 
统 方法 对 集合 进行 排序 : 

scala> words.sort((s, t) => s.charAt(0) .toLowerCase < t.charAt(0) .toLowerCase) 

res49: List[java.lang.String] = List(al, bud, kelly, peg) 


这 里 的 代码 使 用 了 一 个 代码 块 ， 代 码 块 有 两 个 参数 s 和 t。 通 过 sort 你 可 以 按照 任何 你 想 要 的 方 
式 对 两 个 参数 进行 比较 。 在 前 面 的 代码 中 ， 将 字符 转换 为 小 写 形式 "然后 比较 它们 。 这 将 产生 一 
个 不 区 分 大 小 写 的 搜索 。 我 们 也 可 以 使 用 同样 的 方法 通过 比较 单词 的 长 度 对 列表 进行 排序 。 


scala> words.sort((s, +t) => s.size < t.size) 
res50: List[java.lang.String] = List(al, bud, peg, kelly) 


通过 使 用 代码 块 ， 可 以 基于 任何 想 要 的 东 略 对 集合 进行 排序 。 下 面 来 看 一 个 更 为 复杂 的 例 
子 一 一 foldLeft。 

4. foldLeft 

Scala 中 的 foldLeft 方 法 与 Ruby 中 的 inject 方 法 非常 相似 。 你 只 需 提 供 一 个 初始 值 以 及 一 个 
代码 块 ，foldLeft 就 会 将 数组 中 的 每 个 元 系 和 为 外 的 一 个 值 传递 给 代码 块 。 这 里 提 到 的 男 外 的 
值 可 以 是 初始 值 (在 第 一 次 调用 代码 块 时 ) 也 可 以 是 从 代码 块 中 返回 的 结果 (在 后 续 的 代码 块 调 
用 时 )。 这 个 方法 有 两 个 版 本 。 第 一 个 版 本 /: 是 一 个 操作 符 ， 采 用 initialValue /:List 
codeB1ock 的 形式 ， 下 面 是 一 个 使 用 这 个 方法 的 例子 : 


scala> val list = List(CL1，2，3) 
1ist: List[Int] = List(1, 2,， 3) 





























scala> val sum = (0 /: 1ist) {(sum, 1) => sum + 1} 
sum: Int = 6 


在 介绍 Ruby 时 我 们 曾 详细 地 解释 过 这 个 语句 序列 , 不 过 再 看 一 过 也 许 仍 会 对 你 有 所 帮助 。 下 
面 将 说 明 它 是 如 何 工作 的 。 
口 调用 这 个 操作 符 ， 传 和 一 个 初始 值 和 一 个 代码 块 。 这 个 代码 块 有 两 个 参数 sum 和 1 。 
口 开始 ，/: 将 初始 值 0 和 列表 的 第 一 个 元 素 1 作 为 参数 传 给 代码 块 。sum 等 于 0，i 等 于 1， 这 
样 0+1 的 结 采 等 于 1。 
口 接 下 来 ，/: 将 从 代码 块 返回 的 结果 1 返 送 给 算式 中 的 sum， 这 样 sum 等 于 1，i 等 于 列表 的 
下 一 个 元 素 值 2， 这 样 代码 块 的 执行 结果 为 3。 
口 最 后 ，/: 将 从 代码 块 返回 的 结果 3 返 送 给 算式 中 的 sum， 这 样 sum 等 于 3，1i 等 于 列表 中 的 
下 一 个 元 素 值 3，sum + i 等 于 6。 
男 外 一 个 版 本 的 foldLeft 的 语法 看 起 来 很 奇怪 。 它 使 用 了 一 个 被 称 为 柯 里 化 (currying ) 的 
概念 。 孔 数 式 编 程 语言 使 用 柯 里 化 将 一 个 带 有 多 个 参数 的 函数 转换 为 多 个 拥有 独自 参数 列表 的 活 
数 。 我 们 将 在 第 8 曹 中 介绍 更 多 关于 柯 里 化 的 内 容 。 这 里 只 要 明白 幕后 实际 是 一 个 困 数 的 组 合 而 























GD 在 2.8.0 版 本 中 ，sort 已 经 被 废弃 ， 要 使 用 sortWith 代 替 它 。 一 一 原 书 广 
@) 在 2.8.0 版 本 中 ，toLowerCase 已 经 被 废弃 ， 要 使 用 toLower 代 蔡 它 。 一 一 原 书 注 
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不 仅仅 是 一 个 单独 的 男 数 即 可 。 尽 管 这 两 个 版 本 在 机 制 和 场 法 上 有 不 同 , 但 是 得 到 的 结果 却 是 一 
致 的 ; 

scala> val list = List(l1, 2, 3) 

1list: List[Int|] = List(1, 2,， 3) 





scala> list.foldLeft(0)((sum, value) => sum + value) 
res54: Int = 6 


注意 ， 国 数 调 用 1ist.fo1dLeft(0) (Csum，value) => sum + value) 有 两 个 参数 列表 。 
这 就 是 我 之 前 提 到 的 柯 里 化 概念 。 在 本 书后 续 的 其 他 所 有 语言 中 你 会 看 到 这 个 方法 的 诸多 版 本 。 


5.3.4 第 二 天 我 们 都 学 到 了 什么 


第 一 天 介绍 了 诸多 你 已 经 熟悉 的 面向 对 象 特性 。 第 二 天 介绍 了 Scala 存 在 的 主要 原因 : 函数 式 
编程 。 

我 们 由 一 个 简单 的 郴 数 开始 。Scala 有 着 灵活 的 图 数 定义 的 语法 。 编 译 器 常常 能 推断 出 郴 数 的 
返回 类 型 ， 孔 数 定义 有 单行 和 代码 块 两 种 形式 ， 并 是 参数 列表 可 以 改变 。 

接 下 来 , 介绍 了 各 种 不 同 的 集合 。Scala 支 持 三 种 集合 : 列表 、 映 射 和 和 集 。 集 是 一 个 对 象 的 集 
合 。 列 表 是 一 个 有 序 集合 。 上 映射 是 一 些 键 值 对 的 集合 。 和 Ruby 一 样 , 你 看 到 了 将 代码 块 和 各 种 不 
同 的 集合 结合 在 一 起 所 表现 出 的 强大 功能 。 我 们 看 到 了 一 些 象 征 函 数 编程 范 型 的 集合 API。 

对 于 列表 , 也 可 以 使 用 Lisp 风 格 那样 , 使 用 head 方 法 来 返回 列表 的 第 一 个 元 素 tai 1 方法 返回 
剩余 元 素 的 列表 ， 就 像 Prolog 一 样 。 我 们 也 使 用 了 count、empty 和 first 方 法 来 满足 各 种 需要 。 
不 过 功能 最 强大 的 方法 是 可 以 接受 函数 块 作为 参数 。 

我 们 使 用 foreach 进 行 迭代 并 日 使 用 过 滤 絮 有 选择 性 地 从 列表 中 返回 各 种 元 素 。 我 们 还 学 会 
了 使 用 fo1dLeft 累 加 返回 值 ， 就 像 在 一 个 集合 中 通过 迭代 来 做 一 些 事情 一 样 ， 比 如 连续 进行 累 
加 求 和 。 

呆 数 式 编 程 主要 是 学 习 使 用 更 高 层次 的 结构 而 不 是 用 Java 风 格 的 迭代 去 操作 和 集合。 我 们 将 在 
第 三 天 里 充分 展现 这 些 技 术 ， 到 时 候 将 学 习 如 何 使 用 并 发 、 处 理 XML 以 及 做 一 些 简 单 的 贴近 实 
际 的 练习 ， 敬 请 关注 。 


5.3.5 第 二 天 自习 


我 们 已 经 深入 人 研究 了 Scala, 你 即将 开始 看 到 它 函 数 式 编程 的 一 面 。 每 当 你 应 对 函数 时 , 集合 
都 是 一 个 不 错 的 起 点 。 下 面 这 些 练习 会 使 用 到 一 些 集合 ， 当 然 也 包括 一 些 困 数 。 
找 





















































口 关于 如 何 使 用 Scala 文 件 的 讨论 。 
口 闭 包 (closure ) 与 代码 块 有 何不 同 。 
做 
口 使 用 foldLeft 方 法 计算 一 个 列表 中 所 有 字符 串 的 总 长 度 。 
口 编写 一 个 Censor trait, 包含 一 个 可 将 Pucky 和 Beans 替 换 为 shhoot 和 Darn 的 方法 。 使 用 
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映射 存储 脏话 和 它们 的 替代 品 。 
口 从 一 个 文件 中 加 载 脏话 或 它们 的 符 代 品 。 


5.4 第 三 天 : 勇 断 级 毛 


台 在 《 勇 刀 手 爱 德 华 》 这 部 影 记 的 高 潮 到 来 之 前 ，Edward 学 会 了 在 日 凋 生 活 中 像 一 位 艺术 家 
一 样 灵活 地 运用 他 那 双 剪 刀 手 。 他 将 灌木 修剪 成 妃 龙 形状 ， 用 维 达 ' 沙宣 " 般 的 技艺 毫 不 费力 地 
精心 制作 出 了 令 人 慰 叹 的 发 型 , 甚至 将 家 里 的 烤肉 做 成 雕刻 品 。Scala 让 我 们 经 历 过 了 一 些 全 从 的 
时 刻 ， 不 过 当 这 种 语言 被 放 在 合适 的 场合 中 时 ， 它 束 会 让 你 慰 叹 。 像 XML 和 并 发 这 样 的 难题 ， 
几乎 都 会 变 得 像 例行公事 般 人 简单 。 让 我 们 一 起 看 一 下 吧 。 











5.4.1 XML 


在 解决 现代 编程 问题 的 过 程 中 我 们 越 来 越 多 地 用 到 了 XML ( Extensible Markup Language, 可 
扩展 标记 语言 ).Scala 将 XML 抬 高 到 语言 的 一 等 编程 结构 ,你 可 以 像 表 示 字 符 串 那样 来 表示 XML 。 

scala> val movies = 

| <movies> 

| <movie genre="action">Pirates of the Caribbean</movie> 

| <movie genre="fairytale">Edward Scissorhands</movie> 

| </movies> 
movies: scala.xml.Elem = 


<mov1es> 

















<movie genre="action">Pirates of the Caribbean</movie> 
<movie genre="fairytale">Edward Scissorhands</movie> 
</movies> 


在 你 使 用 XML 定 义 完 movies 变 量 后 ， 你 就 可 以 直接 访问 其 中 的 不 同 元 系 了 。 
例如 ， 要 想 查 看 其 内 部 的 所 有 文本 ， 你 只 需 输 入 : 


scala> movies .text 
resl: String = 














Pirates of the Caribbean 
Edward Scissorhands 


从 前 一 个 例子 中 你 看 到 了 该 变量 的 所 有 内 部 文本 ,但 是 并 未 受到 只 能 一 次 使 用 全 部 文本 的 限 
制 。 我 们 可 以 更 有 选择 性 地 使 用 。Scala 内 置 了 一 种 与 XPath 类 似 的 查询 语言 ，XPath 是 一 种 XML 
查询 语言 。 不 过 由 于 在 Scala 中 ,关键 子 // 是 注释 的 修饰 从 ，Scala 将 使 用 \ 和 \\。 为 了 搜索 到 顶层 
的 节 感 ， 你 可 以 使 用 单反 斜 线 ， 如 下 所 示 : 


scala> val movieNodes = movies \ "movie" 
movieNodes: scala.xml.NodeSeq = 








<movie genre="action">Pirates of the Caribbean</movie> 
<movie genre="fairytale">Edward Scissorhands</movie> 





OQ 维 达 : 沙宣 ( Vidal Sassoon ) 是 国际 美发 大 师 。 一 一 编者 注 
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在 上 面 的 搜索 中 ， 我 们 查找 到 了 XML 的 movie 元 素 。 你 可 以 通过 下 标 得 到 单个 节点 的 信息 : 


scala> movieNodes (0) 
res3: scala.xml.Node = <movie genre="action">Pirates of the Caribbean</movie> 


我 们 刚刚 找到 零 号 元 素 ， 即 Pirates of the Caribbean。 你 也 可 以 使 用 @ 符 号 查找 单个 XML 节 
点 的 属性 。 例 如 ， 执 行 以 下 搜 寺 来 找到 文档 中 第 一 个 元 系 的 genre 属 性 。 


scala> movieNodes(0) \ “Qgenre- 
res4: scala.xml.NodeSeq = action 


这 个 例子 仅仅 是 浅 答 辑 止 ， 但 是 你 知 近 该 怎样 去 做 了 。 如 采 将 Prolog 风 格 的 模式 匹配 加 进来 ， 那 
么 事情 束 会 变 得 更 加 令 人 兴奋 。 下 面 就 来 看 一 个 简单 字符 串 模 式 匹 配 的 例子 。 























5.4.2 ”模式 匹配 


模式 匹配 ( pattern matching ) 允许 你 基于 一 些 数据 片断 有 条 件 地 执行 代码 。Scala 经 常 使 用 模 
式 匹 配 ， 诸 如 当 你 解析 XML 或 在 线程 间 传 递 消息 时 。 
下 面 是 一 个 最 简单 的 模式 匹配 的 形式 : 


scala/chores.scala 





def doChore(chore: String): String = chore match 并 
case "clean dTshes” => "scrub, dry” 
case "cook dinner™” => "chop, sizzle” 
case _ => "whine, complain™ 


} 
printin(doChore("clean dishes")) 
println(doChore( mow lawn")) 


我 们 定义 了 两 个 chore (日 常事 务 ): clean dishes ( 刷 盘 子 ) 和 cook dinner (做 饭 )。 紧 邻 每 
个 chore 都 有 一 个 代码 块 。 在 这 个 例子 中 ， 代 码 块 只 是 简单 地 返回 一 个 字符 串 。 我 们 定义 的 最 后 
一 个 chore 是 “_”， 它 是 一 个 通配符 。Scala 执 行 第 一 个 匹配 成 功 的 chore 所 对 应 的 代码 块 ， 如 果 没 


有 chore 可 以 匹配 成 功 ， 则 返回 "whine，complain"， 如 下 所 示 : 


>> scala chores.scala 

scrub, dry 

whine, complain 

1. 哨兵 

模式 匹配 也 有 一 些 装 饰品 。 在 Prolog 中 ,模式 匹配 往往 具有 关联 的 条 件 。 为 了 用 Scala 实 现 一 
个 阶乘 ， 我 们 在 哨兵 ( Guard ) 中 为 每 个 匹配 语句 指定 了 一 个 条 件 : 





scqala/factorial.scala 


def factorial(n: Int): Int = n match { 
Case 0 => 1 
case x if x > 0 => factorial(n - 1) * n 
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} 


printlin(factorial(3)) 
printlin(factorial(0)) 


第 一 个 模式 匹配 是 一 个 0， 不 过 第 二 个 哨兵 的 形式 为 case x if x > 0。 它 可 以 匹配 任意 大 于 0 
的 x。 通 过 这 种 方式 你 可 以 指定 各 种 各 样 的 条 件 。 模 式 匹配 也 可 以 匹配 正则 表达 式 和 类 型 。 在 随 
后 的 并 行程 序 示例 中 ， 我 们 会 定义 一 些 空 的 类 并 用 这 些 类 作为 消息 使 用 。 

2. 正则 表达 式 

Scala 中 的 正则 表达 式 ( Regular Expression ) 是 一 等 类 型 。 针 对 一 个 字符 串 的 ,r 方 法 可 以 将 任 
意 字符 串 转换 成 正则 表达 式 。 在 下 一 页 里 有 一 个 正则 表达 式 的 示例 , 这 个 正则 式 可 以 匹配 任何 以 
大 写 或 小 写 F 开 头 的 字符 串 。 


scala> val reg = """A(FIf MW"".r 
reg: scala.util.matching.Regex = 人 A 人 (F|f)\Ww* 

















scala> printin(reg.findFirstIn("Fantastic")) 
Some(Fantast1c) 


scala> printin(reg.findFirstIn("not Fantastic")) 
None 


我 们 从 一 个 简单 字符 串 开始 。 用 """ 为 字符 串 划 定 界 限 ， 人 允许 多 行 字符 串 ， 去 除了 对 其 内 部 字符 
串 的 求 值 过 程 。. 方法 将 字符 串 转换 为 正则 表达 式 。 然 后 使 用 findFirstIn 方 法 找到 第 一 次 匹配 
成 功 的 地 方 。 


scala> val reg = "the".r 
reg: scala.util.matching.Regex = the 





scala> reg.findAllIn("the way the scissors trim the hair and the shrubs") 
res9: scala.util.matching.Regex.MatchIterator = non-empty iterator 


在 这 个 例子 中 , 构建 了 一 个 正则 表达 式 , 并 使 用 findA11In 方 法 在 字符 串 "the way the scissors 
trim the hair and the shrubs" 中 找到 所 有 与 the 匹 配 的 地 方 。 如 果 需 要 ， 可 以 使 用 foreach 
遍历 这 个 匹配 结果 列表 ， 仅 此 而 已 。 你 可 以 像 使 用 字符 串 那 样 去 使 用 正则 表达 式 来 进行 匹配 。 

3. XML 和 匹配 

在 Scala 中 将 XML 语 法 和 模式 匹配 结合 在 一 起 是 极 具 吸 引力 的 。 你 可 以 浏览 XML 文 件 ， 并 根 
据 各 种 不 同 的 XML 元 每 有 条 件 地 执行 代码 。 例 如 ， 考 虑 下 面 的 XML 文 件 movies: 


scqalq/movies.scala 














val movies = <movies> 
<movie>The Incredibles</movie> 
<movie>WALL E</movie> 
<short>Jack Jack Attack</short> 
<short>Cer1i's Game</short> 
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</movies> 


rr rr 


(movies \ " ").foreach { movie => 
movie match { 
case <movie>{movieName}</movie> => printlin(movieName) 
case <short>{shortName}</short> => printin(shortName + " (short)") 


+} 
它 查 询 了 树 中 的 所 有 市 点 。 然 后 ， 它 使 用 模式 匹配 去 匹配 short 和 movie 广 点。 我 言 欢 这 种 方式 ， 
Scala 通 过 使 用 XML 语 法 、 模 式 匹 配 和 类 XQuery 语 言 使 得 最 常见 的 任务 变 得 极为 简单 ， 几 乎 不 费 
吹 灰 之 力 。 这 里 只 是 初步 介绍 了 一 些 模 式 匹 配 的 内 容 , 在 下 一 节 关 于 并 发 的 学 习 中 ,你 会 看 到 一 
些 实际 应 用 模式 匹配 的 例子 。 


5.4.3 并 发 


Scala 最 重要 的 方面 之 一 就 是 其 处 理 并 发 的 方式 。 其 主要 结构 包括 actor 和 消息 传递 。actor 拥 有 
线程 池 和 队列 池 。 当 发 送 一 条 消息 给 actor 时 ( 使 用 ! 操 作 符 ), 是 将 一 个 对 象 放 到 该 actor 的 队列 中 。 
actor 谈 取消 息 并 采取 行动 。 通 向 情况 下 , actor 通 过 模式 匹配 需 去 检测 消息 并 执行 相应 的 消息 处 理 。 
我 们 看 看 下 面 这 个 kids 程 序 : 


scala/kids.scala 


























import scala.actors._ 
import scala.actors.Actor. 


case object Poke 
case object Feed 


class Kid() extends Actor { 


def act() 并 
loop { 
react 二 
case Poke => { 
println(C "Ow...") 
println(C "QuIit 71t...") 
} 


Case Feed => { 
printin("Gurgle...") 
printlinC"Burp...") 


} 
} 
} 
} 
} 
val bart = new Kid().start 
val lisa = new Kid().start 
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5.4 第 三 天 : 剪断 绒毛 | 过 


printlin("Ready to poke and feed...") 


bart ! Poke 
1isa ! Poke 
bart ! Feed 


lisa ! Feed 

在 这 个 程序 中 ,创建 了 两 个 空 的 、 不 重要 的 单 件 对 象 Poke 和 Feed。 它 们 什么 都 不 做 ， 只 是 
简单 地 作为 消息 使 用 。 程 序 的 主要 部 分 是 Kid 类 。Kid 是 actor， 这 意味 着 它 将 在 线程 池 中 的 某 个 
线程 中 运行 ,并 从 一 个 队列 中 该 取 消息 。 它 将 一 个 接 看 一 个 地 处 理 每 条 消息 。 我 们 使 用 了 一 个 简 
单 的 循环 ， 循 环 里 面 是 一 个 react 结 构 ，react 可 以 接收 来 自 actor 的 消息 。 模 式 匹 配 可 以 让 我 们 
匹配 到 适当 的 消息 ， 或 是 Poke 或 是 Feed。 

脚本 的 后 续 部 分 创建 了 两 个 kijd 并 通过 加 它们 发 送 Poke 或 Feed 消 息 来 操作 它们 。 你 可 以 像 下 
面 这 样 来 运行 它 : 

batate$ scala code/scala/kids.scala 

Ready to poke and feed... 

Ow... 

QU tt it...: 

Ow... 

QUT1 二 1t,.,; 

Gurgle... 

Burp... 


Gurgle... 
Burp... 








batate$ scala code/scala/kids.scala 
Ready to poke and feed... 


OUTL TL 
Gurgle... 
Burp... 


我 多 次 运行 了 这 个 程序 ， 以 表明 它 确实 是 并 发 的 。 注 意 多 次 运行 结果 输出 的 次 序 是 不 同 的 。 
使 用 actor， 你 还 可 以 设置 超时 处 理 (reactwithin )， 当 在 指定 时 间 内 没有 接收 到 消息 时 ， 会 触 
发 超时 处 理 。 此 外 ， 你 还 可 以 使 用 receive ( 它 将 阻塞 线程 ) 和 receivewithin ( 它 将 在 设置 的 
超时 时 间 内 阻塞 线程 )。 


5.4.4 实际 中 的 并 发 


例子 中 的 模拟 程序 影响 力 毕 苋 是 有 限 的 ， 让 我 们 做 一 些 更 有 力 的 事情 吧 。 在 这 个 名 为 sizer 
的 程序 中 ,我 们 将 计算 网 页 的 大 小 。 我 们 点 击 一 些 页 面 ， 然 后 计算 它们 的 大 小 。 由 于 需要 很 长 的 
等 待 时 间 ， 所 以 我 们 想 使 用 actor 以 并 发 的 方式 抓 取 所 有 网 页 。 先 看 一 下 完整 的 程序 吧 。 然后 青 来 
看 看 个 别 的 代码 段 : 
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scala/sizerscala 


import scala.10. 
import scala.actors._ 
import Actor. _ 


object PageLoader { 
def getPageSize(url| : String) = Source.fromURLCur1) .mkString. length 
} 


val urls = List("http://Wwww.amazon.com/", 
"http://www. twitter.com/", 
“http://www.google.com/", 
"http://Wwww.cnn.com/™ ) 


def timeMethod(method: QO) => Unit) = { 

val start = System.nanoTime 

method() 

val end = System.nanoTime 

printlnC"Method took " + (end - start)/1000000000.0 + " seconds.") 
+ 


def getPageSizeSequentially() = { 
forCurl <- urls) { 
printlin("Size for 
} 
} 


JT IJ I 


+ Url + + PageLoader.getPageSize(ur1)) 


def getPageSizeConcurrently() = { 
val caller = self 


forCurl <- urls) { 
actor { caller ! (url, PageLoader.getPageSize(url)) } 
上 


for(i <- 1 to urls.size) { 
receive { 

Case (url, size) => 

printlinC"Size for 


JT IJ I 


+ Url + + Size) 
} 
} 


) 


println(C"Sequential run:") 
timeMethod { getPageSizeSequentially } 


printlnC"Concurrent run") 
timeMethod { getPageSizeConcurrently } 


那么 先 从 顶部 开始 。 先 为 actors 和 io 导入 一 些 基本 库 ， 以 便 可 以 处 理 并 发 并 且 构 造 HTTP 请 
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求 。 接 下 来 ， 计 算 一 个 给 定 URL 的 Web 页 面 大 小 : 
object PageLoader { 


def getPageSize(ur|l : String) = Source.fromURLCur1) .mkString. length 
’ 


然后 ， 定 义 了 一 个 变量 ， 其 值 为 一 些 URL。 之 后， 定义 了 一 个 方法 来 测定 每 个 Web 页 面 请 求 
所 消耗 的 时 间 


def timeMethod(method: () => Unit) = { 
val start = System.nanoTime 

method() 

val end = System.nanoT1me 


printlnC"Method took ”+ (end - start)/1000000000.0 + " seconds.") 
: 


接 下 来 ， 用 两 种 不 同 的 方法 发 起 Web 页 面 请 求 。 第 一 种 是 按 顺 序 的 ， 在 一 个 for 循 环 中 以 迭 
代 的 方式 发 起 每 个 请 求 。 
def getPageSizeSequentially() = { 


forCurl <- urls) { 
printin(C"Size for " + Url + ": ”+ PageLoader.getPageSize(ur]1)) 


} 
oe 








异步 发 起 Web 请 求 的 方法 : 


def eh ie = 
val caller = self 


forCurl <- urls) { 
actor { caller ! (url, PageLoader.getPageSize(url1l)) } 


} 
for(1 <- 1 to urls.size) { 
receive { 
case (uril, size) => 
printin("Size for " + url + ": ”+ Size) 
} 
} 
} 


在 这 个 actor 中 ， 我 们 将 收 到 一 组 固定 的 消息 。 在 foreach 循 环 中 ， 发 送 了 4 个 异步 请 求 。 这 些 请 
求 几乎 是 同时 发 出 。 接 下 来 ， 简 单 地 使 用 receive 接 收 这 4 条 消息 。 这 就 是 实际 工作 中 会 使 用 到 
的 方法 。 最 后 ， 准 备 好 运行 这 个 脚本 并 启动 这 个 测试 : 


println("Sequential run:") 

timeMethod { getPageSizeSequentially } 
printinC "Concuyurrent run") 

timeMethod { getPageSizeConcurrently } 


下 面 是 输出 结 
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>> scala sizer.scala 

Sequential run: 

Size for http://ww.amazon.com/: 81002 
Size for http://ww.twitter.com/: 43640 
Size for http://ww.google.com/: 8076 
Size for http://ww.cnn.com/: 100739 
Method took 6.707612 seconds. 
Concurrent run 

Size for http://ww.google.com/: 8076 
Size for http://ww.cnn.com/: 100739 
Size for http://ww.amazon.com/: 84600 
Size for http://ww.twitter.com/: 44158 
Method took 3.969936 seconds. 


并 发 循环 的 方式 要 更 快 些 ， 这 和 我 们 预想 的 相 吻 合 。 这 里 概要 说 明了 Scala 中 的 一 个 有 趣 的 问题 。 
让 我 们 回顾 一 下 所 学 到 的 东西 吧 。 








5.4.5 ”第 三 天 我 们 学 到 了 什么 





第 三 天 的 学 习 内 容 不 多 , 不 过 在 强度 上 有 了 提高 。 我 们 构建 了 几 个 不 同 的 并 发 程序 ， 进 行 了 
直接 的 XML 处 理 ， 将 消息 分 发 传递 给 actor， 了 解 了 模式 匹配 和 正则 表达 式 。 

通过 本 章 的 学 习 , 我 们 学 到 了 4 种 彼此 互相 依赖 的 基本 结构 。 首先 , 我 们 学 会 了 如 何 使 用 Scala 
直接 处 理 XML。 我 们 可 以 使 用 一 种 类 XQuery 的 语法 查询 单个 元 素 信 息 或 其 属性 信息 。 

然后 ， 我 们 介绍 了 Scala 版 本 的 模式 匹配 。 起 初 ， 它 看 起 来 像 一 个 简单 的 case 语 句 ， 不 过 介 
绍 了 哨兵 、 类 型 和 正则 表达 式 后 ， 它 们 强大 的 功能 就 很 快 表现 了 出 来 。 

接 下 来 ， 转 到 并 发 的 话题 上 来 。 我 们 使 用 了 actor 的 概念 ，actor 是 为 并 发 而 构建 出 来 的 对 象 。 
它们 通 和 党 拥有 一 个 包含 react 或 receive 方 法 的 循环 ， 用 于 接收 发 给 该 对 象 的 队列 消息 。 最 后 ， 
我 们 实现 了 一 个 内 部 模式 匹配 。 我 们 使 用 原始 的 类 作为 消息 , 它们 小 巧 、 轻 便 、 健 壮 且 易于 操作 。 
如 条 需 要 在 消息 中 增加 参数 ， 只 需 在 类 定义 中 添加 属性 即 可 ， 丈 像 在 sizer 应 用 程序 示例 中 加 入 
URIL 那 样 。 

和 本 书 中 介绍 的 其 他 语言 一 样 ，Scala 远 远 比 你 在 这 里 看 到 的 更 加 强大 。 与 Java 类 的 交互 也 远 
远 超 出 了 我 在 这 里 回 你 所 展示 的 内 容 。 对 于 一 些 诸如 柯 里 化 的 复杂 概念 ， 我 们 仅仅 是 浅 答 力 止 。 
不 过 你 已 经 有 了 很 好 的 基础 ， 你 应 该 继续 深入 学 习 下 去 。 






































5.4.6 ”第 三 天 自习 








现在 你 已 经 看 到 了 Scala 提 供 的 一 些 高 级 特性 了 。 你 可 以 尝试 自己 去 摆弄 一 下 Scala。 和 以 往 
一 样 ， 这 些 练习 要 求 更 高 。 
找 





口 对 于 sizer 程 序 , 如 果 你 没有 为 每 个 要 跟踪 的 链接 创建 一 个 新 的 actor, 这 段 程序 的 性 能 会 发 
生 怎 样 的 变化 ? 
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做 





口 修改 sizer 程 序 ， 增 加 一 个 计算 页 面 上 链接 总 和 的 消息 。 
口 加 分 题 : 让 sizer 跟 踩 给 定 页 面 上 的 所 有 链接 并 加 和 载 它 们 。 例如, 对 给 定 页面 “google.com”， 
sizer 会 计算 出 Google 主 页 及 主页 所 链接 的 页 面 的 数量 总 和 。 


5.5 ” 趁 热 打铁 


到 目前 为 止 ， 我 们 对 Scala 语 言 的 介绍 比 起 其 他 语言 来 说 更 为 详尽 ， 这 是 因为 Scala 文 持 两 种 
编程 范 型 。 面 加 对 象 的 特性 将 Scala 牢 牢 地 定位 成 Java 的 蔚 代 品 。 与 Ruby 和 Io 不 同 ，Scala 使 用 的 是 
静态 类 型 策略 。 在 语法 上 Scala 借 鉴 了 许多 Java 中 的 元 素 ， 包 括 大 括号 和 构造 器 使 用 方法 。 

Scala 对 旺 数 式 编 程 概念 和 不 变量 提供 了 强大 的 文 择 。 这 门 语言 十 分 关注 并 发 程序 和 XML ， 
非常 适合 当前 使 用 Java 语 言 实现 的 大 量 种 类 繁多 的 企业 应 用 。 

Scala 的 函数 式 编程 能 力 远 远 超出 我 在 这 一 章 中 所 涉及 的 内 容 。 我 没有 介绍 的 结构 包括 柯 里 
化 、 全 闭 包 、 多 参数 列表 和 异常 处 理 。 但 是 它们 都 是 很 重要 的 概念 ， 可 以 增强 Scala 的 功能 和 灵 
活性 。 

接 下 来 看 看 Scala 的 核心 优 热 和 不 足 之 处 吧 。 


5.5.1 核心 优势 


Scala 优 势 在 于 提供 了 一 种 高 级 的 编程 范 型 , 将 Java 环 境 和 一 些 精 心 设计 的 核心 特性 很 好 地 整 

合 在 一 起 。 特 别 是 actor、 模 式 匹 配 以 及 XML 集成 ,它们 都 是 十 分 重要 且 经 过 精心 设计 的 功能 。 
下面 是 各 项 优势 及 介绍 。 

1. 并 发 

Scala 文 持 并 发 的 方式 代表 了 并 行 编 程 领 域 的 一 次 重大 进步 。actor 模 型 和 线程 池 都 是 很 受 欢 
迎 的 改进 ， 并 且 无 需 可 变 状 态 的 并 发 应 用 设计 能 力也 绝对 是 一 个 巨大 的 进步 。 

你 曾 在 Io 和 现在 的 Scala 中 看 到 的 actor 模 型 很 容易 被 开发 人 员 理 解 ， 也 广 为 学 术 界 所 人 研究 。 
Java 和 Ruby 都 应 该 在 这 方面 做 些 改善 。 

并 发 模型 只 是 改进 的 一 部 分 。 当 对 象 共享 状 态 时 ,你 必须 争取 使 用 不 变 值 。Io 和 Scala 至 少 音 
分 做 对 了 , 它们 允许 可 变 状态 ,但 是 也 提供 了 文 持 不 变性 的 库 和 关键 字 。 不 变性 是 你 能 为 改善 并 
发 代码 设计 能 做 的 唯一 的 、 最 重要 的 事情 。 

最 后 ， 你 在 Scala 中 看 到 的 消息 传递 语法 与 下 一 章节 中 Erlang 十 分 相似 。 与 Java 的 标准 线程 库 
相 比 ， 这 是 一 个 十 分 显著 的 改善 。 

2. 遗留 Java 的 演化 

Scala 一 开始 就 有 着 一 个 强大 的 .与 生 俱 来 的 用 户 基 础 : Java 社 区 。Scala 必 用 可 以 直接 使 用 Java 
库 ， 并 且 必 要 时 可 以 使 用 代理 对 象 ( proxy object ) 的 代码 生成 功能 ， 与 Java 的 互 操作 性 非常 好 。 
比 而 老 的 Java 类 型 系统 更 先进 的 类 型 推 关 机制 也 是 特别 急需 的 。 创 立新 的 编程 社区 的 最 好 方法 怠 
是 充分 接受 现 有 的 社区 。Scala 提 供 了 一 个 更 为 简 清 的 Java， 这 方面 做 得 很 好 ， 这 种 想法 也 是 很 有 
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价值 的 。 

Scala 也 向 Java 社 区 贡献 了 许多 新 的 特性 。 代 码 块 成 为 了 语言 的 一 等 类 型 构造 ,并 且 可 以 与 核 
心 集合 库 很 好 地 集成 在 一 起 使 用 。S$cala 也 以 trait 形 式 提 供 了 一 等 类 型 mixin。 模 式 匹配 同样 也 
是 一 个 显著 的 改进 。 有 了 这 许 许 多 多 的 功能 ，Java 程 序 员 就 可 以 拥有 一 门 先 进 的 语言 ， 甚 至 无 需 
学 习 更 加 高 级 的 函数 式 编程 范 型 。 

加 入 函数 式 的 结构 , 你 的 应 用 会 得 到 显著 的 改进 。Scala 应 用 的 总 代码 行 数 通常 只 是 功能 等 同 
的 Java 应 用 的 几 分 之 一 。 这 十 分 重要 ， 良 好 的 语言 应 该 能 够 以 更 少 的 代码 、 最 小 的 开销 表达 更 复 
林 的 想法 。Scala 攻 现 了 这 个 承诺 。 

3. 领域 特定 语言 

Scala 灵 活 的 语法 和 操作 符 重 载 使 其 成 为 了 一 门 用 来 开发 类 Ruby 风 格 领 域 特定 语言 的 理想 语 
言 。 记 住 ， 和 Ruby 一 样 ， 操 作 符 只 是 人 简单 的 方法 声明 ， 大 多 数 情 况 下 你 都 可 以 重 写 它们 。 此 外 ， 
可 选 的 空格 、 句 号 以 及 分 号 让 语法 具有 多 种 不 同形 式 。 再 加 上 强大 的 mixin， 这 些 都 是 一 个 DSL 
开发 者 努力 寻找 的 工具 。 

4. XML 

Scala 提 供 内 置 的 XML 支 持 。 模 式 匹 配 使 得 各 种 不 同 XML 结 构 的 解析 块 易于 使 用 。 将 XPath 
语法 集成 到 复杂 的 XML 中 使 得 代码 变 得 更 为 简单 、 可 读 。 这 是 很 受 欢 迎 的 重要 改进 ， 特 别 是 在 
大 量 使 用 XML 的 Java 社 区 中 。 

5. 桥接 

每 种 新 出 现 的 编程 范 型 都 需要 一 个 桥梁 。Scala 具 有 成 为 这 座 桥 梁 的 先天 优势 。 函数 式 编程 模 
型 很 重要 , 因为 它 可 以 很 好 地 处 理 并 发 , 并 且 处 理 器 的 并 发 程度 也 越 来 越 高 。Scala 提 供 了 一 条 迭 
代 的 路 线 以 帮助 程序 员 逐 步 实 现 目标 。 


5.5.2 不足 之 处 


虽然 我 喜欢 Scala 的 思想 ， 不 过 我 发 现 Scala 的 语法 要 求 过 多 且 仿 学术 性 。 虽 说 语法 是 有 关 个 
人 品味 的 , 但 Scala 霹 法 负担 确实 比 其 他 多 数 语言 更 重 , 至 少 对 于 我 们 这 些 老 眼光 的 程序 员 是 这 样 
的 。 我 也 意识 到 了 一 些 妥 协 前 弱 了 Scala 这 样 一 个 有 效 桥 梁 的 价值 。 我 只 看 到 了 三 点 不 足 , 不 过 这 
些 不 足 都 是 很 重要 的 。 

1. 静态 类 型 

静态 类 型 天 生 适 合 国 数 式 编程 语言 ， 不 过 对 于 面 癌 对 象 系统 ，Java 风 格 的 静态 类 型 就 是 一 场 
与 魔鬼 的 交易 。 有 时 候 巾 于 必须 满足 编译 闫 的 需求 ， 而 这 将 给 开发 再 来 更 多 负担 。 静 态 类 型 们 来 
的 负担 远 远 超出 你 的 预期 。 对 代码 、 语 法 以 及 程序 设计 的 影响 也 是 深 远 的 。 当 我 学 会 Scala 时 , 我 
发 现 我 日 己 一 下 处 在 一 场 语法 和 程序 设计 的 持续 战争 中 。trait 稍 微 缓 解 了 这 个 人 负担， 让 我 找到 
了 在 程序 员 的 灵活 性 和 编译 期 检查 需求 之 间 的 平衡 点 。 

在 本 书后 续 草 市 中 ,你 会 通过 Haskell 看 到 一 个 纯 钠 数 式 的 强 类 型 的 静态 类 型 系统 是 什么 样子 
的 。 没 有 了 这 两 种 编程 范 型 的 负担 后 ， 类 型 系统 将 变 得 更 加 流畅 和 高 效 ， 并 能 更 好 地 文 持 多 态 ， 
而 且 在 收益 相同 的 情况 下 ， 对 程序 员 的 要 求 也 没 那么 严格 。 
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2. 语法 

我 真 的 发 现 Scala 的 语法 有 一 些 学 术 味道 , 并 日 看 起 来 很 吃力 。 是 否 将 这 个 话题 放 到 书 中 我 一 
直 犹 驶 不 决 ， 因 为 语法 毕竟 是 很 主观 的 ,但 是 一 些 语法 元 泰 确 实 是 有 些 令 人 困惑 。 有 时，Scala 
保留 了 Java 的 惯例 ， 诸 如 构造 右 。 你 会 使 用 new Person 而 不 是 Person.new。 而 其 他 一 些 时 候 ， 
Scala 会 引入 一 个 新 惯例 ， 比 如 参数 类 型 。 在 Java 中 ， 你 会 使 用 setName (String name)， 而 Scala 
则 使 用 setName (name: String)。 返 回 类 型 从 Java 方 法 声明 的 开头 处 挪 到 了 结尾 处 。 这 些微 小 
的 差异 让 我 一 直 不 得 不 关注 语法 而 不 是 代码 逻辑 。 这 种 在 Scala 和 Java 间 来 回 切 换 的 问题 会 比 原本 
耗费 更 多 精力 。 

3. 可 变性 

当 你 构造 一 门 充当 桥梁 角色 的 语言 时 , 必须 将 妥协 作为 重要 因素 包含 进去 。Scala 的 一 个 重要 
的 妥协 就 是 引入 了 可 变性 。 有 了 var，Scala 就 好 似 以 某 种 方式 打开 了 潘多拉 的 魔 盒 ， 因 为 可 变 状 
态 可 能 导致 各 种 各 样 的 并 发 bug。 不 过 如 果 你 想 将 山 丘 上 屋子 中 的 那个 特殊 男孩 儿 带 回 家 ， 那 么 
这 个 妥协 就 是 不 可 避免 的 。 




















5.5.3 ”最 后 思考 


总 之 ,我 的 Scala 体 验 是 喜忧参半 。 毅 态 类 型 让 我 困惑 ， 但 同时 我 内 心 的 Java 程 序 员 情 节 又 让 
我 十 分 感激 改进 的 并 发 模型 、 类 型 推 凯 机 制 以 及 内 置 的 XML 支 持 。Scala 代 表 了 编程 乞 术 境界 上 
的 一 次 跃进 。 

如 果 我 曾经 在 Java 程 序 上 有 过 较 大 投资 , 那 我 就 会 使 用 Scala 来 提升 我 的 生产 力 。 如 采 一 个 程 
序 有 着 重要 的 可 扩展 性 需求 , 需要 使 用 并 发 时 , 我 也 会 考虑 使 用 Scala。 商 业 上 ,这 个 科学 怪人 拥 
有 本 一 个 民 好 的 契机 ， 因 为 它 代 表 了 一 座 桥梁 ， 并 且 完 全 包容 了 一 个 重要 的 编程 社区 。 
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你 听 到 了 吗 ? 安德森 先生 。 这 是 命运 的 右 隆 声 。 


一 一 特工 Smith 











似 Erlang 这 般 充 满 神秘 感 的 语言 寥寥 无 几 。 这 门 并 发 语言 既 可 将 难事 化 易 , 也 可 将 易 事变 难 。 
在 健壮 企业 部 署 方面 ， 它 的 虚拟 机 BEAM 是 唯一 堪 与 Java 虚 拟 机 匹敌 的 对 手 。 它 调用 起 来 十 分 高 
效 ， 甚 至 效率 以 外 的 东西 它 都 很 少 考虑 。 因 此 , 它 的 语法 也 不 像 Ruby 那 样 优雅 和 简洁 。 想 想 《 黑 
客 帝国 》”" 里 的 特工 Smith 吧 。 

《黑客 帝国 》 是 1999 年 的 一 部 经 典 科幻 电 影 。 它 把 你 我 现今 身 处 的 世界 描绘 成 一 个 由 计算 机 
创造 和 维护 、 如 同 幻象 一 般 的 虚拟 世界 。 特 工 Smith 是 这 世界 中 的 一 段 AI 程序 。 他 拥有 化 身 为 任 
意 形式 的 惊人 能 力 ， 也 具有 瞬间 改变 多 处 地 点 物理 规律 的 力量 。 在 他 面前 ， 你 无 处 可 和 逃 。 


6.1 ”Erlang 简介 


Erlang 其 名 ， 午 昕 之 下 很 怪 。 但 你 奉 知 道 ， 它 既是 Ericsson Language 的 缩写 ， 又 恰 是 一 位 和 丹 
麦 数 学 家 的 大 名 , 你 就 不 会 再 抱 忽 “这 什么 破 名 儿 ” 了 。 作为 电话 网 络 分 析 的 数学 芮 基 人 ，Agner 
Karup Erlang 可 称 得 上 是 赫赫 有 名 。 

1986 年 ，Joe Armstrong 在 爱立信 公司 ( Ericsson ) 开发 了 了 Erlang 语言 的 站 个 版 本 。 随 后 的 五 年 
间 ，Erlang 在 他 的 精心 雕琢 下 日 渐 完 善 。20 世 纪 90 年 代 整 整 十 年 间 ，Erlang 的 发 展 都 不 温 不 火 、 
时 新 时 续 , 但 到 了 2000 年 之 后 , 它 却 开始 成 为 众人 瞩目 的 焦点 。 两 个 广 受 欢迎 的 云 数 据 库 CouchDB 























GD The Matrix，DVD 版 ， 导演: Andy Wachowski 和 Lana Wachowski ( 1999 年 )。 发 行商 : 加 利 福 尼 亚 州 伯 班 克 市 的 华 
纳 影 业 家 庭 娱 乐 公 司 〈2007 年 )〈 译 者 注 : 这 部 电影 中 译名 为 《黑客 帝国 》 是 一 部 带 有 一 定 哲 学 意味 的 电影 ， 
大 意 是 说 我 们 所 见 的 世界 并 非 真正 的 现实 世界 ， 而 是 存在 于 母体 Matrix 当 中 、 通 过 程序 虚拟 出 来 的 世界 。 主 人 公 
Neo 和 同伴 发 现 了 母体 背后 的 秘密 ， 试 图 反抗 母体 的 控制 ， 也 因此 招致 特工 程序 们 的 追 杀 。 特 工程 序 实际 上 是 母 
体 这 个 庞大 的 程序 世界 中 的 杀毒 软件 ， 他 们 被 母体 赋予 了 超凡 的 能 力 : 可 通过 改写 人 类 程序 而 不 断 借用 别人 的 身 
体 ， 虽 具 人 类 外 表 但 并 非 人 类 ; 善于 操控 母体 中 的 物理 现象 ,可 以 扭曲 万 有 引力 、 摩 探 力 等 。 拥 有 这 些 能 力 的 特 
工 是 发 现 真 相 的 人 类 所 无 法 匹敌 的 。 其 中 为 首 的 一 名 特工 就 是 Smith。 最 后 Neo 在 爱情 力量 的 感召 下 , 唤醒 了 其 “ 救 
世 主 ”身份 所 拥有 的 重 写 母 体 程序 的 能 力 。 他 用 这 种 能 力 修改 了 特工 Smith 的 代码 ， 让 其 消失 得 无 影 无 踪 。) 

@) Agner Karup Erlang ( 1878 ~ 1929 )， 和 丹麦 数学 家 、 统 计 学 家 、 工 程 师 ， 排 队 论 和 电信 流量 工程 学 ( Teletraffic 
Engineering ) 的 创始 人 ， 一 手 开 创 了 电话 网 络 分 析 这 一 与 我 们 日 常生 活 息 上 县 相关 的 领域 。 
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和 SimpleDB ， 都 是 用 Erlang 开 发 出 来 的 ， 此 外 ，Erlang 还 是 Facebook 的 聊天 系统 所 采用 的 语言 。 
正 因 为 Erlang 里 怀 可 伸缩 并 发 性 和 可 徘 性 这 两 项 拿手 绝技 ， 而 其 他 语言 在 这 两 方面 都 力不从心 ， 
所 以 Erlang 开 始 越 来 越 多 地 成 为 人 们 谈论 的 话题 。 





6.1.1 为 并 发 星 身 打造 


Erlang 是 爱立信 公司 历经 多 年 研究 的 产物 ， 用 来 在 电信 领域 中 开发 准 实时 ”( near-real-time ) 
旦 容错 性 较 强 的 分 布 式 应 用 。 这 类 系统 通常 不 可 因 维 护 而 停止 因此 软件 开发 费用 极其 高 郧 。20 
世纪 80 年 代 ,， 爱 立信 对 很 多 编程 语言 进行 了 人 研究， 发 现 它 们 出 于 各 种 原因 , 均 无 法 满足 他 们 公司 
的 需求 。 正 是 这 些 难以 满足 的 需求 ， 最 终 导 致 了 一 门 全 新 声言 的 问世 。 

Erlang 是 一 门 晒 数 式 语言 ， 可 靠 性 方面 的 特性 很 多 ,可 用 于 开发 可 靠 性 要 求 极 高 的 系统 。Erlang 
在 替换 模块 时 不 必 停 止 运 行 ， 这 样 就 能 边 运 行 边 维护 电话 交换 机 等 设备 。 有 些 使 用 Erlang 的 系统 已 
持续 运行 多 年 ， 从 未 因 维 护 而 中 止 过 。 可 话说 回来 ， 要 说 到 Erlang 最 关键 的 功能 ， 那 还 得 是 并 发 。 

哪些 方法 最 适用 于 并 发 ? 在 这 一 点 上 , 并 发 领域 的 专家 们 有 时 意见 并 不 统一 。 其 中 常见 的 一 
个 争议 是 : 线程 更 好 还 是 进程 更 好 ? 一 个 进程 由 多 个 线程 组 成 ,进程 有 目 己 的 资源 ， 而 线程 昌 有 
目 己 的 执行 路 径 ， 但 在 同一 进程 内 ， 各 线程 是 资源 共享 的 。 尽 管 实 现 各 异 ， 但 一 般 来 说 ， 线 程 比 
进程 更 轻 量 级 。 

1. 无 线程 

很 多 语言 都 采用 线程 实现 并 发 ， 比 如 Java 和 C 语 言 。 线 程 占用 资源 较 少 ， 所 以 理论 上 说 ,使 
用 线程 可 获得 更 优异 的 性 能 。 线 程 的 缺点 ， 在 于 资源 共享 可 能 导致 复杂 而 有 缺陷 的 实现 ， 而 且 这 
种 资源 共享 必须 用 并 发 锁 来 管理 , 这 也 会 产生 性 能 瓶 令 。 为 了 在 共享 资源 的 两 应 用 间 分 配 控制 权 ， 
线程 机 制 需 要 信 助 信号 量 或 是 操作 系统 级 别 的 锁 。 然 而 ，Erlang 另 辟 蹊 径 ， 尝 试 让 进程 也 尽 可 能 
下 量 级 一 些 ， 

2. 轻 量 级 进程 

Erlang 奉 行 的 哲学 是 轻 量 级 进程 ， 这 使 它 摆脱 了 在 共 主 资源 和 性 能 瓶颈 的 泥 涪 中 艰难 跨 涉 的 
困境 。Erlang 的 发 明 者 化 费 苦 心地 简化 了 应 用 程序 中 多 进程 创建 、 管 理 和 通信 的 过 程 。 分 布 式 消 
息 传 递 成 为 基本 的 声言 结构 ， 因 此 锁 机 制 不 再 必要 ， 并 发 性 能 也 大 有 长 进 。 

和 Io 一 样 ，Erlang 也 将 actor 用 在 了 并 发 当中 ， 因 此 ， 消 奶 传 递 就 成 为 至 关 重 要 的 概念 。 你 可 
以 在 Erlang 中 依稀 辨认 出 Scala 的 消息 传递 语法 ,因为 它们 的 消息 传递 语法 非常 相似 。Scala 的 actor 
代表 一 个 对 象 ， 由 线程 池 创 建 和 维护 ， 而 Erlang 的 actor 代 表 了 一 个 轻 量 级 进程 。Erlang 的 actor 从 
队列 中 谈 取 外 部 进入 的 消息 ， 并 用 模式 匹配 决定 其 处 理 方式 。 

3. 可 靠 性 

Erlang 虽 然 也 有 和 规 钳 误 检测 手段 ， 但 在 容 钳 应 用 中 ， 需 要 处 理 的 错误 加 起 来 远 比 传统 应 用 




































































由 准 实 时 是 一 个 常用 于 电信 和 计算 科学 领域 的 术语 ， 指 的 是 由 网 络 传输 或 数据 处 理 所 引 起 的 较 短 的 时 间 延 迟 。 实 
际 上 ， 脱 离 具体 标准 谈论 实时 与 准 实 时 是 没有 意义 的 。 很 多 情况 下 ， 准 时 实 与 实时 并 无 明显 差别 ; 但 在 某 些 应 
用 ( 如 数据 库 整 合 ) 中 ， 准 实时 的 时 间 延 迟 可 达到 15~20 分 钟 之 久 。 
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要 多 ， 这 是 稼 规 手 段 无 法 解决 的 。Erlang 解 决 这 一 问题 的 秘诀 是 “就 让 它 毅 省 ”。 由 于 Erlang 能 轻 
多 监测 到 月 演 进程 ， 因 此 终止 相关 进程 并 启动 新 进程 也 就 不 在 话 下 本。 

此 外 ，Erlang 还 能 做 到 “ 热 插 拔 ” 代 码 。 也 就 是 说 ， 你 不 必 中 止 代码 运行 ， 就 可 以 茶 换 应 用 
程序 的 各 个 部 分 。 相 比 于 其 他 同类 分 布 式 应 用 ， 这 项 功能 将 市 给 你 更 简单 的 维护 东 略 。Erlang 将 
健壮 的 “就 让 它 骨 沉 ” 错 误 人 处理 琐 略 、“ 热 插 拔 ”以 及 创建 开销 极 小 的 轻 量 级 进程 等 优点 集 于 一 
号 ， 因 此 应 用 程序 一 次 就 能 运行 好 几 年 都 不 宕 机 。 

Erlang 有 这 人 么 多 并 发 方面 的 传奇 特性 ， 实 在 是 令 人 欲罢不能 。 它 有 三 个 最 基本 的 要 系 : 消息 
传递 、 进 程 创建 和 进程 监控 。 用 它 新 创建 的 进程 是 轻 量 级 的 ， 因 此 不 必 担 心 其 控制 区 域内 的 资源 
可 能 受 限 。Erlang 不 仅 可 以 尽 可 能 地 消除 代码 中 的 副作用 和 可 变性 ， 而 且 还 可 以 很 轻松 地 监测 朋 
省 进程 。 有 了 这 些 特性 ， 说 它 人 见 人 爱 真 是 一 点 都 不 过 分 。 























6.1.2 Joe Armstrong 博 士 访谈 录 


写作 本 书 的 过 程 中 ,我 有 入 接触 到 几 位 我 最 尝 谷 的 人 物 ， 至 少 是 通过 电子 邮件 接触 。Joe 
Armstrong 博 士 是 Erlang 的 发 明 者 ， 也 是 《 Erlang 程序 设计 》 一 书 的 作者 。 在 我 个 人 的 英雄 榜 上 ， 
他 排名 很 高 。 经 过 几 次 来 往 ， 我 和 这 位 来 和 目 珊 典 斯 德 哥 尔 摩 的 Erlang 语 言 首 位 实现 者 的 访谈 记录 
由 

Bruce: 你 为 什么 要 开发 Erlang? 

Armstrong 博 士 : 纯 必 巧合。 我 本 来 没 打算 发 明 一 门 新 的 编程 语言 。 当 时 ， 我 想 找 一 种 更 好 
的 方式 来 编写 电信 交换 控制 软件 。 我 先 试 了 试 Prolog。Prolog 是 一 门 绝妙 的 语言 ， 但 它 无 法 完全 
满足 我 的 需要 , 既然 如 此 ,我 就 开始 瞎 倒 腾 Prolog。 我 琢磨 着 :“ 如 果 改 变 一 下 Prolog 的 编程 方式 ， 
那 会 怎样 ? ”于 是 , 我 写 了 个 Prolog 的 元 解释 器 ,给 它 加 上 了 并 行进 程 ,， 还 加 上 了 错误 处 理 机 制 ， 
诸如 此 类 。 就 这 样 ， 过 了 一 段 时 间 ， 我 给 这 些 新 增加 的 变化 起 了 个 名 字 Erlang， 一 门 新 语言 
就 这 么 诞生 了 。 之 后 ， 越 来 越 多 的 人 加 入 这 个 项 目 ， 这 门 语言 也 逐渐 发 展 起 来 。 我 们 想 出 了 编译 
它 的 方法 ， 加 入 了 更 多 东西 ， 获 得 了 更 多 用 户 …… 

Bruce: 你 最 喜欢 它 郧 一 点 呢 ? 

Armstrong 博 士 : 我 最 喜欢 它 的 错误 处 理 、 运 行 时 代码 升级 机 制 ， 还 有 位 级 (bit-level ) 模式 
匹配 。 错误 处 理 是 这 门 语言 最 不 为 人 所 知 的 部 分 , 也 是 与 其 他 语言 差别 最 大 的 部 分 。 Erlang 的 “ 非 
防 衔 ”编程 和 “就 让 它 前 溃 ” 这 一 套 概 念 ， 既是 它 的 独门 绝学 , 也 是 它 与 传统 方法 蕉 然 相 反之 处 。 
不 过 ， 这 样 做 的 确 能 编 出 简洁 而 漂亮 的 程序 。 

Bruce: 如 果 能 让 时 光 倒 流 ， 你 最 想 改变 哪 项 特性 ? (换言之, 你 也 可 以 回答 这 样 一 个 问题 : 
Erlang 最 大 的 局 限 是 什么 ? ) 

Armstrong 博 士 : 这 问题 很 难 ， 我 可 能 会 在 不 同时 间 给 出 不 同 答案 。 为 这 门 语言 添加 一 些 移 
动 特性 应 该 不 错 , 这样 我 们 就 能 通过 移动 通信 网 络 传送 计算 结果 ,我 们 可 以 用 库 代 码 来 做 这 件 事 ， 











GD 英文 名 为 Programming Erlang: Sofiware for a Concurrent World[Arm07]。 中 译本 于 2008 年 由 人 民 邮 电 出 版 社 出 版 。 
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但 它 并 不 被 语言 本 身 所 支持 。 我 现在 想 ， 如 果 追 本 泣 源 ， 把 Prolog 式 的 谓词 逻辑 加 入 Erlang， 产 
生 一 种 谓词 逻辑 和 消息 传递 的 全 新 组 合 ， 那 想必 会 十 分 美妙 。 

还 有 不 少 小 改动 也 是 我 想 做 的 ， 比 如 说 ， 加 入 散 列 映射 、 高 阶 模块 ， 等 等 。 

要 是 推倒 重 来 ,我 可 能 会 更 多 地 把 心思 花 在 各 项 编程 事务 的 协调 上 ， 比 如 说 ， 如 何 运 作 有 大 
量 代码 的 大 型 编程 项 目 如 何 管理 代码 版 本 、 如 何 搜索 想 要 的 东西 、 各 种 事物 如 何 演化 。 当 程 
序 员 编写 了 大 量 代码 之 后 ,他 的 任务 就 不 再 是 编写 新 代码 ,而 是 准确 找到 现 有 代码 ， 并 把 现 有 代 
码 整 合 起 来 。 因 此 ,搜索 和 协调 就 变 得 日 渐 重 要 。 如 果 把 GIT 和 Mercurial 这 类 系统 的 思想 吸收 到 
Erlang 之 中 ， 再 给 它 加 上 类 型 系统 ， 使 它 能 在 可 控 条 件 下 理解 代码 是 如 何 演化 的 ， 那 我 想 应 该 会 
带 来 不 错 的 效果 。 

Bruce: 在 实际 产品 中 ， 你 见 过 的 最 特别 的 Erlang 应 用 是 什么 ? 

Armstrong 博 士 : 虽 ， 其 实 我 并 不 会 太 过 惊讶 ， 因 为 我 早 就 知道 它 能 达到 何等 高 度 。 当 我 把 
Ubuntu 版 本 升级 到 Karmic Koala2 时 ， 我 发 现 , 它 为 了 支持 正在 我 机 器 上 运行 的 CouchDB ， 而 在 后 
台 悄 悄 局 动 了 Erlang。 这 就 好 比 Erlang 在 雷达 的 严密 监控 之 下 ， 偷 偷 溜 进 了 数 千 万 用 户 的 计算 机 
Je 

本 草 中 ， 我 们 一 开始 会 介绍 一 些 Erlang 的 基础 知识 。 之 后 ， 我 们 会 深入 人 研究 Erlang 作 为 一 门 
哨 数 式 语言 的 各 种 特性 。 最 后 ， 我 们 还 要 花 点 时 间 看 看 Erlang 的 并 发 性 特性 ， 以 及 它 超 酶 的 可 徘 
性 特性 。 没 错 ， 朋 友 ， 可 徘 性 也 能 这 么 赞 。 


6.2 第 一 天 : 以 哩 人 面目 出 现 


特工 Smith 是 被 称 作 “ 母 体 ”( Matrix ) 的 虚拟 现实 世界 中 的 程序 ， 只 要 其 他 程序 或 虚拟 人 扰 
乱 母 体 的 正常 运行 ,他 就 会 将 他 们 杀 死 。 但 他 也 拥有 一 项 稼 使 自己 陷于 险 境 的 能 力 ， 就 是 以 党 人 
面目 出 现 。 同样 , 我 们 在 本 市 当中 ,也 要 先 看 看 Erlang 编 写 通 用 应 用 程序 的 能 力 。 我 将 尽 我 所 能 ， 
让 你 看 看 “常态 ”下 的 Erlang 是 什么 样 的 。 想 做 到 这 一 点 并 非 易 事 。 

如 果 你 在 读 这 本 书 之 前 ， 仪 用 面 癌 对 和 象 语言 编 过 程 ， 那 你 或 许 会 感到 些许 不 适 。 不 过 ,你 不 
必 太 过 在 音 这 种 不 适 。 前 面 你 见识 过 Ruby 的 代码 块 、Io 的 actor、Prolog 的 模式 匹配 ， 还 有 Scala 的 
分 布 式 消息 传递 。 这 些 在 Erlang 中 也 都 是 最 基本 的 思想 ,但 本 草 会 选择 从 为 一 个 重要 思想 切入 主 
题 。Erlang 是 本 书 出 现 的 第 一 门 国 数 式 语言 。( Scala 是 函数 式 / 面 器 对 象 混合 语言 。) 对 你 而 言 ， 这 
意味 独 以 下 几 点 : 

口 程序 将 完全 基于 上 数 编写 出 来 ， 压 根 儿 就 没有 对 象 这 种 东西 ; 

口 通常 来 说 ， 给 定 相 同 输 入 ， 这 些 函 数 将 返回 相同 的 值 ; 

口 这 些 也 数 通常 没有 副作用 ， 也 就 是 说 ， 它 们 不 改变 程序 的 状态 ; 

口 任何 变量 都 只 能 赋值 一 次 。 

第 一 条 规则 还 算 好 对 付 , 但 再 加 上 后 面 那 三 条 ,你 就 只 有 目 瞪 口 采 的 份 儿 了 。 至少 有 那么 一 















































(QD) GIT 和 Mercurial 都 是 分 布 式 版 本 控制 系统 。 
@) Ubuntu 9.10 版 的 代号 。 
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段 时 间 ， 你 都 会 保持 这 种 目 瞎 口 采 的 状态 。 不 过 你 要 知道 ， 你 完全 能 够 学 会 这 种 编程 方式 ， 而且 
以 这 种 方式 编 出 来 的 程序 ， 正 是 为 并 发 量 遇 打造 的 。 当 你 摆脱 了 程序 的 可 变 状态 ,并 发 就 会 变 得 
出 奇 催 单 。 

如 果 你 仔细 看 过 这 几 条 规则 ， 就 会 发 现 ， 第 二 条 和 第 三 条 都 市 有 通常 这 个 词 。Erlang 并 非 纯 
国 数 式 场 言 ， 它 允许 出 现 少数 违反 规则 的 情况 。 在 本 书 介绍 的 语言 中 ，Haskel] 是 唯一 的 一 门 纯 柄 
数 式 语言 。 尺 管 如 此 ， 你 用 Erlang 编 程 时 ， 还 是 能 感受 到 浓郁 的 函数 式 编程 风格 ， 而 且 大 多 数 情 
况 下 ， 你 都 要 遵守 上 面 提 到 的 四 条 规则 。 


6.2.1 新 于 上 路 


我 用 的 Erlang 版 本 是 R13B02, 但 本 音 涉 及 的 基本 知识 应 该 能 在 任何 版 本 的 Erlang 中 正常 运行 。 
你 可 以 输入 er1 ( 某 些 Windows 系 统 是 wer1 ) 来 打开 Erlang 的 命令 行 ， 像 下 面 这 样 : 


batate$ erl 
Erlang (BEAM) emulator version 5.4.13 [sourcej 














Eshell V5.4.13 (abort with AGO) 
1> 


这 章 前 面 的 大 部 分 任务 都 能 用 命令 行 完成 ， 就 像 其 他 各 草 所 做 的 那样 。 和 Java 一 样 ，Erlang 
也 是 编译 型 语言 。 它 可 以 用 c(〈 文 件 名 ) .〈 结 尾 要 加 上 人 句点“.”) 编译 文件 。 按 Ctrl+C 可 以 退出 
命令 行 或 跳出 循环 。 下 面 ， 我 们 开始 学 习 基 本 功 。 
6.2.2 ” 注释、 变量 和 表达 式 

我 们 先 来 学 一 些 基 本 语法 。 打 开 命 令 行 ， 输 入 下 列 代 码 : 

1> % This is a comment 

很 简单 。 注 释 以 % 符 号 开头 ， 从 该 符号 开始 、 直 到 该 行 来 尾 所 包含 的 内 容 ， 都 会 被 Erlang 当 
作 注 释 。 对 注释 作 语法 分 析 时 ，Erlang 会 将 整 条 注释 转换 为 一 个 空格 。 

1> 2 + 2. 

4 

2>5 2 + 2:0. 

4.0 


3> "string". 
"string” 


每 个 语句 都 必须 以 句号 结尾 。 上 面 给 出 了 一 些 Erlang 的 基本 类 型 . 字符 串 、 整 数 、 浮 点 数 。 
下 面 来 看 看 列表 : 


4> [1，2，3]. 
[1,2,3] 


如 同 Prolog 家 族 的 其 他 语言 一 样 ， 列 表 是 用 方 括 号 表示 的 。 这 里 有 个 让 人 上 略微 感到 奇怪 的 
地 方 : 
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4> [72，97，32，72，97，32，72，97] . 
"Ha Ha Ha" 


也 就 是 说 ， 字 符 串 其 实 是 个 列表 。 这 就 好 像 特工 Smith 冲 着 你 母亲 哈哈 大 笑 ， 哎 ， 真 粗鲁 ”。 
前 面 的 2+2 .0 这 行 代码 ,说 明 Erlang 可 以 做 一 些 基 本 类 型 强制 转换 。 现 在 我 们 用 不 当 的 类 型 转换 ， 
让 代码 报错 : 


5> 4+ "string'". 
xx @xception error: bad argument in an arithmetic expression 
1n operator +/2 

called as 4 + "string" 


和 Scala 不 同 ，Erlang 不 能 在 字符 串 和 整数 间 强 制 转换 。 下 面 为 变量 赋值 : 


6> variable = 4. 
xx exCeption error: no match of right hand side value 4 


糟 了 。 这 个 错误 告诉 你 ， 用 黑客 帝国 中 的 特工 比喻 Erlang 并 不 是 那么 恰当 。 有 时 ， 这 门 讨厌 
的 语言 真 的 是 有 脑 无心 。 这 条 错误 消息 说 的 是 Erlang 的 模式 匹配 。 它 之 所 以 出 错 ， 是 因为 这 里 的 
variab1le 其 实 是 个 原子 。 变 量 的 话 ， 必 须 以 大 写字 母 开 头 才 行 。 























7> Var = 1. 

小 

8> Var = 2. 

=ERROR REPORT==== 8-Jan-2010::11:47:46 === 


Error 1n process <0.39.0> with exit value: {{badmatch,2},[{erl_eval,expr,3}]} 


:* exited: {{badmatch,2},[{erl_eval,expr,3}]} ** 
8> Var. 
1 


如 上 述 代码 所 示 ， 变 量 以 大 写 子 母 开 尖 ， 且 它们 是 不 可 变 的 ， 你 只 能 为 每 个 变量 赋值 一 次 。 
这 一 思想 让 初次 接触 函数 式 语言 的 大 多 数 程 序 员 纠 结 不 已 。 下 面 ， 我 们 介绍 几 个 复杂 一 点 的 数据 
结构 。 


6.2.3 原子、 列表 和 元 组 


陋 数 式 语言 中 ， 符 号 (symbol ) 的 作用 更 为 突出 。 它 们 是 最 基本 的 数据 元 素 ， 可 以 表示 任何 
你 想 为 之 起 名 的 事物 。 在 本 书 介 绍 的 其 他 各 门 语 言 中 ， 你 曾 见 过 符号 。 但 在 Erlang 中 ， 符 号 叫做 
原子 ， 并 以 小 写字 母 开 头 ， 它 们 用 来 表达 很 小 的 事物 粒度 。 你 可 以 像 下 面 这 样 使 用 它们 : 

9> red. 

red 

10> Pill1 = blue. 

blue 


11> Pill. 
blue 























Q 本 书 把 Erlang 比 作 特 工 Smith， 因 此 作者 想 借 特工 Smith 的 粗鲁 举动 ， 说 明 Erlang 并 不 那么 友好 ， 可 能 会 产生 用 户 难 
以 理解 的 代码 。 用 列表 表示 字符 串 的 代码 即 为 一 例 。 
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这 里 的 red 和 bl1ue 都 是 原 了 于。 这 些 原子 起 什么 名 都 行 ， 用 来 符 扎 化 现实 世界 的 事物 。 在 代码 
中 ,我 们 先是 返回 了 一 个 简单 原子 red。 然 后 ,我 们 把 一 个 名 为 blue 的 原子 赋 给 了 变量 Pi11。 妆 
原子 和 更 强大 的 数据 结构 结合 起 来 时 ,原子 会 变 得 更 有 趣 ，, 我 们 在 后 面 会 讲 到 。 现 在 , 我们 用 前 
面 学 过 的 基本 类 型 构建 列表 。 列 表 用 方 括号 表示 : 

T3300 23] 

[1;2.3] 

14> [1, 2, "three"]. 

[1,2,"three"] 

15> List = [1，2，3]. 

[ls233] 

Erlang 的 列表 语法 看 着 挺 眼熟 。 列 表 是 异 质 "和 变 长 的 。 我 们 可 以 把 列表 赋 给 变量 ， 就 像 给 变 
量 赋 一 个 基本 类 型 的 值 一 样 。 而 元 组 是 定 长 的 异 质 列表 : 

18> {one, two, threel}. 

{one, two, three} 

19> Origin = {0，0}. 

{0,0} 

这 段 代 码 没 什么 特别 。 你 也 许 看 得 出 ，Erlang 受 Prolog 有 影响 顾 深 。 稍 后 我 们 会 讲 到 模式 匹配 ， 
那 时 , 你 将 看 到 元 组 长 度 在 匹配 元 组 时 所 起 的 作用 。 你 不 能 用 三 元 组 去 匹配 二 元 组 。 但 在 匹配 列 
表 时 ， 长 度 是 可 以 变化 的 ， 就 像 Prolog 所 做 的 那样 。 

在 Ruby 中 ， 可 以 用 散 列 表 ， 把 值 关 联 到 名 字 上 。 而 在 Erlang 中 ， 如 果 想 用 映射 或 散 列 的 话 ， 
常常 会 用 到 元 组 : 

20> {name, "Spaceman Spiff"}. 

{name,"Spaceman Spiff"} 

21> {comic _ strip, {name, "Calvin and Hobbes"}, {character, "Spaceman Spiff"}}. 


{comic_strip, {name,"Calvin and Hobbes"}, 
{character,"Spaceman Spiff"}} 


上 面 的 代码 中 ，comic_strip ( 四 格 滥 画 ) 是 用 散 列 的 形式 表示 出 来 的 。 我 们 以 原子 为 键 、 
字符 串 为 值 。 你 还 可 以 混合 使 用 元 组 和 列表 ， 比 如 在 列表 里 用 元 组 表示 漫画 。 如 果 用 散 列 的 话 ， 
如 何 访问 其 中 的 各 个 元 系 呢 ? 假如 此 刻 ， 你 脑 中 蹦 出 了 Prolog 这 个 词 ， 那 么 茶 豆 你 ， 你 找到 了 正 
硝 答 案 。 利 用 模式 匹配 ， 就 可 以 访问 那些 元 系 。 


6.2.4 ”模式 匹配 


如 条 吃透 了 Prolog 那 草 ,模式 匹配 也 就 打下 了 扎实 的 基础 。 不 过 必须 指出 的 是 ,Erlang 和 Prolog 
在 模式 匹配 上 有 一 处 重大 不 同 。Prolog 中 ， 你 定义 一 条 规则 ， 会 匹配 数据 库 上 的 所 有 的 值 。 也 就 
是 说 ，Prolog 会 将 模式 匹配 作用 于 所 有 条 目 。Erlang 的 运作 方式 则 类 似 于 Scala， 一 个 匹配 仅仅 作 
用 于 单个 值 。 现 在 ,我 们 就 来 看 看 模式 匹配 是 如 何 从 元 组 中 把 值 取 出 来 的 。 例如， 我 们 有 这 样 一 
个 表示 人 的 元 组 Person: 















































中 即 可 包含 不 同类 型 元 素 。 
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24> Person = {person, {name, Agent Smith"}, {profession, "Killing programs"}}. 
{person, {name,"Agent Smith"}, 
{profession,"Killing programs"}} 


我 们 想 把 元 组 中 的 name 赋 值 给 变量 Name， 把 profession 赋 值 给 Profession。 使 用 下 面 的 
匹配 ， 我 们 能 巧妙 地 做 到 这 点 : 
25> {person, {name, Name}, {profession, Profession}} = Person 
{person, {name,"Agent Smith"}, 
{profession,"Killing programs"}} 
26> Name. 
"Agent Smith" 


27> Profession. 
"Killing programs”" 


Erlang 会 把 两 个 数据 结构 匹配 起 来 , 并 将 元 组 中 的 那些 值 赋 给 变量 。 原子 匹配 其 自 导 ,因此 ， 
上 面 的 代码 只 不 过 是 把 变量 Name 和 "Agent Smith" 匹 配 起 来 、 变 量 Profession 和 "Ki1ling 
programs "匹配 起 来 而 已 。 这 一 特性 的 工作 原理 和 Prolog 十 分 相似 ， 同 时 ， 它 也 是 篆 用 的 基本 判 
汤 结构 。 

右 是 你 已 经 习惯 了 Ruby 或 Java 风 格 的 散 列 表 ， 那 么 散 列 表 开 头 加 个 person 原 子 看 来 或 许 有 
几 分 古怪 。 但 在 Erlang 中 ， 我 们 稼 各 要 用 到 多 匹配 语句 和 多 类 型 元 组 。 照 刚才 说 的 那样 设计 数据 
结构 ，Erlang 就 不 必 理 会 开头 原子 之 外 的 部 分 ， 而 能 快速 匹配 所 有 用 来 表示 人 的 元 组 。 

列表 的 模式 匹配 也 很 像 Prolog: 


28> [Head | Tail] = [1，2，3]. 
[1,2,3] 

29> Head. 

业 

30> Tail. 

[2,3] 


是 不 是 多 如 反 营 ? 我 们 还 可 以 把 列表 头 绑 定 到 几 个 变量 上 : 
32> [One, Twol|lRest] = [1，2，3]. 























[2 3] 
33> One. 
1 

34> Two. 
2 

35> Rest. 
[3] 





如 果 列 表 没 有 足够 元 条 ， 则 模式 不 匹配 : 

36> [X|Rest] = [0]. 

** exCeption error: no match of right hand side value [] 

这 样 一 来 , 另 一 类 错误 消息 也 就 说 得 通 了 : 假如 忘 了 把 变量 首 字 母 大 写 , 会 看 到 下 面 的 错误 
消息 : 








图 灵 社 区 会 员 LorraineMeillorrainemei@gmail.com) 专 享 尊重 版 权 





144 第 6 齐 ”Erlang 


31> one = 1. 
xx eXxCeption error: no match of right hand side value 1 


如 前 所 述 ，= 语 句 不 是 简单 的 赋值 语句 ， 而 是 模式 匹配 。 你 要 求 Erlang 用 原子 one 去 匹配 整数 
1， 可 它 做 不 到 这 点 。 

位 匹配 

有 了 时， 你 需要 在 位 级 别 上 存 取 数据 。 如 果 想 在 较 小 的 空间 内 窒 下 较 多 数据 ， 或 想 处 理 JPEG 
或 MPEG 这 样 的 预定 义 数据 ， 那 么 每 一 个 位 放 了 什么 就 特别 重要 。Erlang 能 让 你 轻松 地 把 几 个 数 
据 片 段 打包 到 一 个 字 节 当中 。 做 到 这 一 点 ， 需 要 两 种 操作 : 打包 和 解 包 。 在 Erlang 中 ， 位 图 与 其 
他 集合 〈collection ) 的 工作 方式 训 无 二 致 。 为 了 打包 一 个 数据 结构 ， 你 要 让 Erlang 知 道 每 个 元 素 
各 占 多 少 位 ， 像 下 面 这 样 : 








1>W=1. 
1 

2» X = 2. 
2 

3> 

we 3 
3 

4> Z = 4. 
4 

5> All = <<W:3, X:3, Y:5, 2Z:5>>. 
<<"(d">> 





<< 和 >> 把 二 进 制 模式 包含 到 构造 融 中 。 在 上 面 的 例子 中 ， 其 构造 部 表示 变量 W 占 3 位 、X 占 3 
位 、Y 占 和 位 、Z 占 $ 位 。 既 然 有 打包 ， 当 然 也 要 能 解 包 才 行 。 你 也 许 已 猜 到 解 包 的 语法 : 

6> <<A:3, B:3, C:5, D:5>> = All. 

<<"(d">> 

7> A 

1 

8> D. 

4 


这 里 的 语法 和 元 组 、 列 表 一 模 一 样 ， 剩 下 的 事 全 交 给 模式 匹配 打 理 就 行 。 有 了 这 些 位 操作 ， 
Erlang 在 执行 底层 任务 时 就 会 变 得 异常 强大 。 

这 一 半 所 有 较 重 要 的 概念 部 已 介绍 完毕 , 我 们 没 用 多 大 工夫 就 学 到 了 大 量 的 基础 知识 。 不 管 
你 信 不 信 , 我 们 现在 几乎 完成 了 Erlang 第 一 天 的 学 习 。 不 过 , 我 们 还 要 介绍 一 个 最 重要 的 概念 














6.2.5 ”函数 


和 Scala 不 同 ，Erlang 是 动态 类 型 的 。 你 不 必 担 心 数 据 元 素 的 赋值 类 型 是 什么 。Erlang 和 Ruby 
一 样 ， 都 是 动态 类 型 的 。 它 会 在 运行 时 根据 引号 或 小 数 点 等 语法 线索 绑 定 类 型 。 我 现在 要 打开 一 
个 新 的 命令 行 。 不 过 在 此 之 前 ,我 想 先 介绍 几 个 新 概念 。 我 们 会 在 后 缀 为 .er1 的 文件 里 编写 也 
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数 。 这 个 文件 包含 了 用 于 模块 的 代码 ， 必 须 经 过 编 详 才 能 运行 。 编 详 后 ， 它 会 产后 一 个 .beam 可 
执行 文件 。 这 个 .beam 已 编译 模块 ， 将 运行 在 名 为 beam 的 虚拟 机 之 上 。 

铺垫 已 做 足 ， 该 到 写 几 个 简单 函数 的 时 候 了 。 

创建 一 个 下 面 这 样 的 文件 : 

erlang/basic.erl 

-module(basic). 

-export([mirror/1]). 

mirror(Anything) -> Anything. 

第 一 行 定义 了 模块 名 称 ， 第 二 行 定 义 想 要 在 模块 外 部 执行 的 函数 。 该 函数 的 名 子 是 mirror， 
/1 表示 它 带 有 一 个 参数 。 最 后 一 行 是 真正 要 执行 的 函数 内 容 ， 可 以 看 出 ， 它 受 Prolog 风 格 的 影 啊 
不 小 。 这 一 行 先 是 指定 了 要 定义 的 函数 名 mirror， 并 确定 了 传人 参数 Anything。 人 参数 之 后 ， 紧 
跟着 一 个 -> 符号 ， 简 单 返回 函数 的 第 一 个 参数 。 

以 上 就 是 一 个 完整 的 函数 定义 。 我 们 可 以 在 代码 文件 的 所 在 目录 中 打开 命令 行 , 并 像 下 面 这 























样 编译 代码 : 

4> CCbasic) . 

{ok,basic} 

这 样 ， 就 编译 了 basic.er1， 你 会 在 该 日 录 中 看 到 basic.beam 文 件 。 你 可 以 像 下 面 这 样 运行 
蕊 : 

5> mirror(smiling mug). 

xx @xception error: undefined shell command mirror/1 

6> basic:mirror(smiling mug). 

smiling_mug 

6> basic:mirror(l1). 

1 

注意 ， 只 有 函数 名 是 不 行 的 ， 还 得 在 前 面 加 上 模块 各 ， 再 跟 上 一 个 冒号 。 函 数 执行 起 来 非 党 
简单。 


还 有 一 件 事 需 要 注意 : 我 们 能 把 函数 的 参数 Anything 绑 定 到 两 个 不 同类 型 上 "。Erlang 是 动 
态 类 型 语言 , 这 正 合 我 意 . 经 历 过 Scala 的 强 类 型 , 我 就 像 在 西伯 利 亚 过 了 个 周末 , 或 者 退 一 步 说 ， 
在 皮 奥 里 亚 ” 过 了 个 周末 之 后 ,终于 回 到 了 家 。 

现在 看 看 稍微 复杂 一 些 的 困 数 是 什么 样 的 。 下 面 的 函数 定义 了 几 种 匹配 选择 。 

创建 一 个 matching function.erl 文 件 : 














~ 








erlang/matching_function.erl 


-module(matching_function). 
-export([number/1]). 


QD 前 面 的 示例 代码 中 ， 函 数 参数 就 绑 定 了 原子 和 整数 两 个 不 同 的 类 型 。 
G@) 美国 伊利 详 伊 州 的 一 座 城市 ， 冬 季 颇 为 寒冷 。 
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number (one) -> 工 ; 
number (two) -> 2; 


number(three) -> 3. 
然后 ， 像 下 面 这 样 执行 它 : 


8> CCmatching_function) . 


{ok 


,matching_function} 


9> matching_function:number (one). 


bu | 
二 


10> 


12> 


matching_function:number (two). 


matching_function:number (four). 


xx @Xception error: no function clause matching matching_function:number(four) 

这 是 我 介绍 的 第 一 个 多 匹配 选择 的 函数 。 每 种 可 能 的 匹配 都 有 函数 名 、 匹 配 参 数 以 及 “->” 
符号 后 的 执行 代码 。 每 种 匹配 情况 下 ， 都 仅仅 让 Erlang 返 回 一 个 整数 。 最 后 一 条 匹配 语句 以 “.” 
结尾 ， 其 他 匹配 语句 用 以 “;” 结 

就 像 在 Io、Scala 和 Prolog 里 一 样 ,， 递归 扮演 着 非常 重要 的 角色 。Erlang 和 Prolog 都 对 尾 递 归 进 
行 了 优化 。 下 面 是 阶乘 函数 的 实现 : 


erlang/yeit _ again.erl 











-module(yet_agaln) . 
-export([another_factorial/1]). 
-export([another_f1ib/1]). 


another_ factorial(0) -> 1; 
another factorial(N) -> N * another factorial(N-1). 


another_fib(0) -> 1; 
another_fib(1) -> 1; 
another_fib(N) -> another_fib(N-1) + another_fib(N-2). 


和 其 他 各 种 阶乘 实现 一 样 , 这 里 的 阶乘 也 是 递归 定义 的 。 既 然 有 阶乘 ， 目 然 也 少不了 裴 波 那 


契 数 列 。 


试 着 让 代码 以 下 列 形 式 运行 。 这 会 花 一 点 时 间 : 
18> c(yet_again). 

{ok,yet again} 

19> yet again:another_factorial (3). 


6 


20> yet_again:another_factorial(20) . 
2432902008176640000 
21> yet again:another_factorial(200). 


788657867364790503552363213932185062295135977687173263294742533244359 
449963403342920304284011984623904177212138919638830257642790242637105 
061926624952829931113462857270763317237396988943922445621451664240254 
033291864131227428294853277524242407573903240321257405579568660226031 
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904170324062351700858796178922222789623703897374720000000000000000000 
000000000000000000000000000000 
22> yet again:another factorial(2000). 
3316275092450633241175393380576324038281117208105780394571935437060380 
7790560082240027323085973259225540235294122583410925808481741529379613 
1386633526343688905634058556163940605117252571870647856393544045405243 
9574670376741087229704346841583437524315808775336451274879954368592474 
. and on and on... 
0000000000000000000000000000000000000000000000000000000000000000000000 


太 棒 了 ! 这 真是 与 众 不 同 。 现在， 你 见识 到 把 Erlang 比 作 特 工 Smith 的 绝妙 之 处 了 吧 。 如 果 你 
没 时 间 运 行 代码 ， 我 向 你 保证 ， 得 到 这 结果 绝对 只 有 一 朋 眼 工夫 。 我 不 知道 Erlang 能 表达 的 最 大 
整数 是 多 少 ， 但 我 想 悄悄 告诉 你 ， 对 我 来 说 这 肯定 是 足够 了 。 

这 是 一 个 不 错 的 起 点 。 你 创建 了 一 些 简单 的 函数 ,也 看 到 了 它们 的 运行 情况 。 是 时 候 温习 一 
下 第 一 天 的 学 习 成 果 了 。 


6.2.6 ”第 一 天 我 们 学 到 了 什么 

Erlang 是 一 门 哨 数 式 硬 言 。 它 是 强 类 型 和 动态 类 型 语言 。 它 没有 太 多 语法 ， 而 且 看 起 来 和 上 典 
型 的 面 回 对 象 语 言 完全 不 同 。 

和 Prolog 一 样 ，Erlang 没 有 对 和 象 的 概念 。 它 和 Prolog 有 相当 紧密 的 联系 。Erlang 的 模式 匹配 结 
构 和 多 孙 数 入 口 点 对 你 来 说 很 误 悉 ， 你 可 以 利用 它们 通过 递归 解决 一 些 问题 。Erlang 这 门 函 数 式 
语言 没有 可 变 状态 的 概念 ， 甚 至 没有 副作用 的 概念 。 维 护 程序 状态 让 人 头疼 ， 但 你 可 以 从 Erlang 
中 学 到 一 系列 新 技巧 。 不 过 ,你 也 将 很 快 看 到 事情 的 另外 一 面 ， 消 除 状态 和 副作用 将 对 管理 并 发 
的 方式 产生 极其 重大 的 影响。 

在 这 第 一 天 中 ， 你 用 命令 行 和 编译 顺 两 种 方式 运行 了 人 代码。 首先, 我 们 把 重点 放 在 基础 知识 
上 。 学 会 了 一 些 基 本 表达 式 ， 还 写 了 一 些 简单 的 函数 。 和 Prolog 一 样 ，Erlang 的 聘 数 也 具有 多 个 
和 人 入口 点 。 这 一 天 也 用 到 了 基本 的 模式 匹配 。 

介绍 了 基本 的 元 组 和 列表 。 元 组 取代 了 像 Ruby 那 样 的 散 列 表 , 构成 了 Erlang 数 据 结构 的 基础 。 
学 习 了 列表 和 元 组 的 模式 匹配 。 这 些 思想 能 让 你 迅速 把 行为 加 到 元 组 或 进程 间 消 息 上 , 我 们 在 后 
面 的 章节 会 讲 到 这 点 。 

第 二 天 , 我 们 将 进一步 介绍 这 些 基本 的 函数 式 思想 。 我 们 将 学 习 如 何 编写 在 并 发 世界 良好 运 
行 的 代码 , 但 第 二 天 结束 之 时 ,我 们 仍 到 不 了 完全 掌握 并 发 编程 的 境界 。 现 在 ， 花 点 时 间 做 做 习 
题 ， 实 践 一 下 现在 已 经 学 到 的 知识 。 


6.2.7 ”第 一 天 自习 


Erlang 的 在 线 社 区 成 长 得 十 分 迅速 。 在 旧金山 举办 的 会 议 影响 力也 越 来 越 大 。, 与 lo 和 C 语 言 不 
同 ， 用 Google 搜 Erlang 就 能 找到 你 需要 的 东西 。 
找 


























口 Erlang 语 言 的 官方 网 站 。 
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口 Erlang 师 数 库 的 官方 文档 。 
口 Erlang OTP 库 的 官方 文档 。 
做 








口 写 一 个 函数 ， 用 递归 返回 字符 串 中 的 单词 数 。 
口 写 一 个 递归 计数 到 10 的 函数 。 
口 写 一 个 函数 ， 在 给 定 输 入 为 {error，Message} 或 success 的 条 件 下 ， 利 用 匹配 相应 地 打 


印 出 "success" 或 "error: message"。 


6.3 第 二 天 : 改变 结构 


本 方 中 , 我们 将 进一步 了 解 特工 Smith 的 能 力 。《 黑客 贡 国 中 的 特工 们 都 有 厦 超人 般 的 威力 。 
他 们 能 轻巧 地 闪避 子 弹 , 也 能 一 拳 把 水 泥 增 击 穿 。 而 函数 式 语言 ,它们 人 处 在 比 面 品 对 和 象 语言 更 局 
的 抽象 层次 上 ， 虽然 理解 起 来 更 有 难度 ,但 也 因此 能 仅 用 几 行 代码 ， 束 表达 相当 丰富 的 含义 。 

特工 Smith 还 能 够 化 吴 为 在 这 个 母体 中 生活 的 任何 一 个 人 的 模样 。 这 也 是 函数 式 请 言 的 一 项 
重要 能 力 。 你 将 等 会 如 何在 列表 上 应 用 函数 ,使 这 列表 瞬间 变化 为 你 想 要 的 形式 。 想 把 购 关 商 品 
列表 变 成 价格 列表 吗 ? 还 是 把 URL 列 表 变 为 包含 内 容 和 URL 的 元 组 ?在 清 数 式 语言 面前 , 这 些 问 


硕 虱 是 小 六 一 人 碟 。 


6.3.1 控制 结构 


我 们 先 从 Erlang 较 为 平淡 无 奇 的 部 分 一 一 基本 控制 结构 开始 学 起 。 你 将 注意 到 ， 这 一 市 内 容 
比 Scala 里 的 相应 内 容 要 短 得 多 。 你 会 经 常 看 到 充 帮 着 case 语 句 的 程序 ， 这 是 因为 ， 编 写 并 发 程 
序 时 ，case 语 句 可 以 表示 即将 处 理 哪 一 条 消息 。 相 比 之 下 ，if 语 句 用 的 就 少 得 多 了 。 

1. case 

我 们 这 瓯 开始 学 习 case 语 句 。 大 多 数 时候 ， 我 们 都 是 为 了 调用 函数 而 想到 模式 匹配 的 。 同 
样 ， 我 们 可 以 把 case 这 种 控制 结构 想象 成 可 随时 随地 使 用 的 模式 匹配 。 举 个 例子 ， 有 一 个 变量 
Animal， 你 想 根 据 它 的 值 来 执行 特定 代码 : 


1> Animal = "dog'". 
2> case Animal of 




















2> "dog”" -> underdog ; 
2> "cat” -> thundercat 
2> end. 

underdog 





这 个 例子 中 ,字符 串 匹 配 了 第 一 个 子 句 ， 并 返回 原子 underdog。 和 Prolog 一 样 ， 你 可 以 用 下 
划 线 ( _) 来 匹配 任意 符号 ， 像 下 面 这 样 (注意 ， 变 量 Animal1 的 值 仍 然 是 "dog" ): 


3> Case Animal of 


3> "elephant” -> dumbo ; 
3> _ -> something else 
3> end. 


something_else 
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这 里 Animal1 的 值 不 是 "elephant"， 所 以 它 匹 配 了 后 一 个 子 句 。 你 也 可 以 在 其 他 任意 一 个 
Erlang 匹 配 中 使 用 下 划 线 。 不 过 我 想 指出 ， 这 里 存在 的 一 个 基本 语法 缺陷 。 注 意 ， 除 了 最 后 一 个 
于 句 之 外 ， 所 有 case 子 句 都 以 分 扎 结尾。 这 就 意味 着 ， 如 东 想 调换 一 下 子 句 顺序 ， 也 要 相应 调 
整 子 句 结尾 处 的 分 号 才 行 。 其 实 对 Erlang 来 说 , 在 最 后 一 个 子 名 后 加 上 可 选 的 分 号 一 后 儿 痢 不 难 。 
不 错 ， 这 种 语法 形式 有 其 逻辑 性 : 以 分 号 作为 case 子 句 之 间 的 分 隔 符 。 但 它 用 起 来 就 是 非常 不 
来。 这 就 好 像 特工 Smith 把 沙子 跑 起 来 ， 弄 得 你 小 件 子 满 尖 满 脸 部 是 。 我 仿佛 又 听 到 了 他 得 意 的 
笑 声 "。 然 而 ， 如 果 他 想 评 为 当月 最 佳 特 工 ， 那 他 现 有 的 这 些 技能 还 不 太 够 。 接 下 来 看 看 另 一 项 
基本 技能 一 一 if。 

2. if 

case 语 句 用 的 是 模式 匹配 ， 而 if 语 句 用 的 是 “哨兵 ”。Erlang 中 的 哨兵 是 指 成 功 匹 配 所 必须 
满足 的 条 件 。 稍 后 ， 我 们 将 介绍 模式 匹配 中 使 用 的 哨兵 ,但 哨兵 最 主要 的 用 途 还 是 在 if 语 句 中 。 
先 以 许 天 键 字 开头 ， 后 面 跟 几 个 “哨兵 一 表达 式 ” 于 句 为 例 ， 像 下 面 这 样 : 

a >0 -> 

success; 
ProgramsTerminated < 0 -> 


error 
end. 

如 果 没 匹配 上 ,会 发 生 什么 呢 ? 

8> X = 0. 

0 

9> 1f 

9> X>0 -> positive; 

9> X<0 -> negative 

9> end. 

xx exception error: no true branch found when evaluating an if expression 


与 Ruby 或 Io 不 同 , 这 里 的 子 句 必须 有 一 个 为 真 ， 因为 if 其 实 是 个 函数 。 此 外 ,每 一 种 匹配 情 
况 都 必须 有 一 个 返回 值 。 如 果 你 确实 想 要 case 语 名 的 效果 ， 那 可 以 令 最 后 一 个 哨兵 为 true， 像 
下 面 这 样 : 

9> 1f 

9> X>0 -> positive; 

9> X<0 -> negative; 


9> true -> Zero 
9> end. 


控制 结构 的 内 容 束 这 么 多 。 从 局 阶 函数 和 模式 匹配 当中 ,可 以 汲取 更 多 有 用 的 知识 ， 所 以 我 
们 不 再 执 迷 于 控制 语句 ， 而 癌 孙 数 式 语言 更 深 的 领域 进 车 。 下 面 将 介绍 高 阶 函 数 ,， 并 用 它们 人 处 理 
列表 。 学 会 了 这 些 函 数 ， 你 将 逐渐 从 得 解决 更 复杂 问题 的 方法 。 
























































由 与 前 文 “ 冲 着 你 母亲 哈哈 大 笑 ” 的 比喻 一 样 ， 体 现 了 Erlang 的 不 友好 。 
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6.3.2 ”匿名 函数 


你 可 能 还 记得 ， 高 阶 范 数 有 两 种 ,一 种 是 以 函数 为 返回 值 ， 一 种 是 以 函数 为 参数 。Ruby 是 拿 
代码 块 当 作 蜗 阶 函 数 来 用 , 主要 用 法 是 把 代码 块 传递 给 列表 , 让 它 在 列表 上 迭代 执行 。 而 在 Erlang 
中 ， 你 可 以 将 任意 函数 赋 给 变量 并 传递 它们 ， 就 跟 其 他 数据 类 型 一 样 。 

前 面 你 见 过 一 些 高 阶 函 数 相关 的 概念 ， 但 这 里 我 们 仍 要 打 好 Erlang 高 阶 函 数 的 基础 ， 然 后 再 
构建 较 高 层次 的 抽象 。 我 们 先 从 匿名 函数 学 起 。 下 面 是 把 函数 赋 给 变量 的 代码 : 

16> Negate = fun(I) -> -I end. 

#Fun<er|_eval.6.13229925> 

17> Negate(1) . 

Negate(-1). 

1 


第 16 行 用 到 了 一 个 新 的 关键 字 fun ， 这 个 关键 字 定 义 了 一 个 匿名 函数 。 在 上 面 的 例子 中 , 定 
义 的 匿名 函数 币 一 个 参数 I 并 返回 -I。 这 个 匿名 子 数 被 赋 给 了 Negate。 这 里 需要 明确 一 点 : 
Negate 并 不 是 晒 数 返回 的 值 ， 它 就 是 这 男 数 本 刁 。 

这 个 例子 中 冀 含 着 两 个 重要 思想 。 第 一 , 我 们 把 函数 赋 给 了 变量 。 这 样 就 能 像 传递 其 他 数据 
一 样 传递 行为 ; 第 二 , 我 们 可 以 轻松 地 在 函数 内 部 调用 其 他 函数 ,只 需 在 参数 列表 中 指定 函数 即 
可 。 注 意 ，Erlang 是 动态 类 型 语言 ， 你 不 必 操 心 图 数 的 返回 类 型 ， 也 可 免 于 受到 Scala 那 样 的 繁复 
语法 之 吉 。 这 种 困 数 用 法 的 缺点 是 ， 盯 数 可 能 出 现 执行 错误 。 稍 后 我 会 给 出 Erlang 弥 补 这 一 缺陷 
的 儿 种 方法 。 

这 种 全 新 的 功能 用 处 不 小 。 我 们 将 用 它 处 理 早 在 Ruby 一 章 中 就 曾 见 到 过 的 each、map、 
inject 等 概念 。 





























6.3.3 ”列表 和 局 阶 函 效 


如 你 所 见 ， 列 表 和 元 组 是 男 数 式 语 言 的 核心 。 第 一 门卫 数 式 语言 就 是 凭 信 列 表 起 家 的 , 它 把 
一 切 事 物 都 建立 在 列表 基础 之 上 ， 这 绝 非 巧合 。 本 节 中 ， 我 会 在 列表 上 应 用 高 阶 范 数 。 

1. 在 列表 上 应 用 高 阶 函 数 

此 时 此 刻 ， 你 应 该 很 容易 就 能 理解 这 一 节 的 主要 思想 了 。 我 们 将 用 冰 数 来 帮 我 们 管理 列表 。 
其 中 一 些 函 数 ， 比 如 foreach， 将 用 来 迭代 列表 ; 而 另 一 些 图 数 ， 比 如 filter 或 map， 将 通过 嘛 
选 或 映射 到 其 他 孙 数 的 方式 返回 列表 。 此 外 ,还 有 其 他 一 些 处 理 列表 的 函数 ,比如 fo1d1 和 foldr， 
它们 采用 的 方式 类 似 于 Ruby 的 inject 函 数 和 Scala 的 Fo1dLeft 函 数 等 ， 即 把 结果 汇总 起 来 。 打开 
一 个 新 的 命令 行 窗口 ， 定 义 一 两 个 列表 ， 人 然后 马上 开始 我 们 的 实践 。 

首先 , 我 们 解决 最 基本 的 迭代 。1ists:foreach 方 法 带 有 一 个 了 渔 数 和 一 个 列表 ,其 中 取 数 可 
以 是 匿名 的 ， 如 下 面 的 代码 所 示 : 
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1> Numbers = [1，2，3，4]. 
1 1 2 3 
2> lists:foreach(fun(Number) -> io:format("~p~n", [Number]) end, Numbers). 


ok 

第 2 行 代 人 码 在 语法 上 有 点 难度 ， 有 必要 把 它 梳 理 一 下 。 首 先 ， 我 们 调用 了 一 个 名 为 
1ists:foreach 的 函数 ， 它 的 第 一 个 参数 是 匿名 图 数 funCNumber) -> io:format("~p~n"， 
[Number]) end。 这 个 匿名 函数 带 有 一 个 参数 ， 它 利用 io:format 函 数 "， 把 传人 函数 的 任意 值 
打印 出 来 。 之 后 ，foreach 还 带 有 第 二 个 参数 Numbers。 在 代码 的 第 一 行 中 ， 已 给 出 过 Numbers 
的 值 。 如 果 把 这 匿名 晒 数 单 拿 出 来 写成 一 行 ， 代 人 码 会 清楚 得 多 : 

3> Print = fun(X) -> io:format("~p~n", [X]) end . 

这 里 ， 变 量 Print 绑 定 到 了 函数 io: format 上 。 于 是 ,我们 可 以 像 下 面 这 样 简 化 代码 : 


8> lists:foreach(Print, Numbers). 

















ok 

这 就 是 最 基本 的 迭代 。 现 在 ,我 们 来 看 看 映射 函数 。 在 Erlang 中 ， 映 里 函 数 采 用 的 是 与 Ruby 
的 co11ect 国 数 类 似 的 方式 。 它 把 列表 的 每 个 值 传 递 给 茧 数 ， 并 用 返回 结果 创建 一 个 列表 。 和 
1lists:foreach 一 样 ，1ists:map 也 带 有 一 个 限 数 参数 和 一 个 列表 参数 。 下 面 ， 我 们 在 前 面 给 出 
的 数字 列表 上 应 用 map ， 使 列表 中 的 每 个 值 都 加 1: 


10> lists:map(fun(X) -> X + 1 end, Numbers). 
有 


这 上段 代码 非常 简单 。 这 里 所 用 的 匿名 函数 是 fun(X) -> X + 1 end， 它 把 列表 的 每 个 值 都 
加 了 1。 然 后 ，1ists:map 用 匿名 因数 返回 的 结果 构建 了 一 个 列表 。 

映射 函数 的 定义 也 是 一 目 了 然 : 

map(CF，[LHIT]) -> [FCH) | map(CF, T)]; 

map(CF, []) s> Ls 

的 确 一 目 了 然 。 这 里 ， 把 F 上 映射 到 列表 上 ， 惑 相当 于 FChead) 后面 跟 看 map(CF,tai1)。 在 稍 
后 学 习 列 表 解 析 时 ， 还 将 看 到 映射 定义 的 一 个 更 简洁 的 版 本 。 

接 下 来 ， 我 们 用 布尔 运算 来 站 选 列表 。 和 定义 一 个 匿名 图 数 ， 并 把 它 赋 给 Smal11: 

















QD io:format 中 的 ~p~n 类 似 于 C 语 言 的 printf 中 的 格式 化 字符 串 ，~p 将 转换 为 后 面 给 出 的 参数 列表 ，~n 是 换行 符 ， 
其 后 的 [Number] 为 要 输出 的 参数 列表 。 一 一 原 书 注 
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11> Small = funCX) -> X < 3 end. 
#Fun<erl_eval.6.13229925> 

12> Small(4). 

false 

13> Small(1). 

true 


现在 可 以 把 这 个 了 涵 数 作为 参数 ， 并 利用 它 篆 选 列表 中 的 元 系 。 闻 数 1ists:filter 将 用 所 有 
满足 Small 的 元 素 ( 小 于 3 的 元 素 ) 构建 列表 : 


14> lists:filter(Small, Numbers). 
[1,2] 


可 以 看 到 ，Erlang 的 这 种 编程 方式 是 相当 方便 的 。 些 外， 我 们 还 可 以 用 Sma11 孙 数 结合 a11 
或 any 来 测试 列表 。 只 有 列表 所 有 元 素 都 满足 入 选 术 (人 filter ) 时 ，1ists:al1 才 返回 true， 如 
下 所 示 : 

15> lists:all(Small, [0, 1, 21). 











true 

16> lists:all(Small, [0, 1, 2，3]). 

false 

而 1ists:any， 是 只 要 列表 有 一 个 元 素 满 足 嗣 选 般 ， 它 就 会 返回 true: 
17> lists:any(Small, [0, 1, 2，3]). 

true 

18> lists:any(Small, [3, 4, 5]). 

false 





如 果 把 它们 用 在 空 列表 上 ， 返 回 结果 如 下 所 示 : 


19> lists:any(Small, []). 
false 

20> lists:all(Small, []). 
true 


你 可 能 已 经 猪 到 了 ，all 会 返回 true (表示 列表 所 有 元 素 都 满足 岂 选 吉 ， 尽 管 列 表 里 一 个 元 
ee 而 any 会 返回 false(〈 表 示 空 列表 中 没有 满足 饶 选 名 的 元 素 )。 在 这 两 种 情况 下 ， 不 
管用 什么 样 的 租 选 硕 ， 它 们 的 返回 值 都 是 这 样 。 

你 还 可 以 用 处 在 列表 头 位 置 的 所 有 满足 科 选 句 的 元 素 组 成 一 个 列表 ， 或 者 把 处 在 列表 头 位 

、 满 足 中 选 右 的 元 素 舍 弃 抒 


22> lists:takewhile(Small, Numbers). 

[1,2] 

23> lists:dropwhile(Small, Numbers). 

[3,4] 

24> lists:takewhile(Small, [1, 2, 1, 4, 11). 
Eis 2 

25> lists:dropwhile(Small, [1l1, 2, 1, 4, 1]1). 
[4,1] 


这 些 测 试 在 完成 某 些 任务 时 很 有 用 ， 比 如 处 理 或 舍弃 消息 头 。 下 面 ， 我 们 将 学 习 fo1d1 和 
foldr 这 两 个 函数 。 学 过 它们 之 后 ， 我 们 也 将 结束 这 一 天 的 高 强度 学 习 。 
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2. fold| 

我 想 你 之 前 已 经 看 到 过 这 些 概念 。 如 果 你 是 Neo， 母 体 的 这 部 分 知识 你 已 了 然 于 胸 ， 那 么 只 
需 了 解 一 些 简单 的 例子 就 可 以 继续 战斗 了 。 对 某 些 人 来 说 , 只 要 稍微 花 点 儿 工 夫 就 能 掌握 fo1d1。 
因此 ， 我 想 用 几 种 不 同 的 方法 讲解 它 。 

记 住 ， 当 我 们 想 把 某 个 函数 遍历 列表 所 得 的 结果 汇总 起 来 时 ， 以 下 这 些 函 数 会 非常 有 用 。 匿 
名 函数 的 一 个 参数 是 累加 器 ， 另 一 个 参数 表示 每 次 欠 代 的 元 素 值 ”。1ists:fo1d1 带 有 一 个 函数 
参数 、 一 个 累加 融 的 初始 值 参 数 以 及 一 个 列表 : 


28> Numbers . 














[9 
29> lists:foldl(fun(X, Sum) -> X + Sum end, 0, Numbers). 
10 


为 简化 代码 起 见 , 我 们 把 匿名 困 数 拆 分 出 来 , 放 到 一 个 变量 当中 , 再 选用 一 个 合适 的 变量 名 ， 
令 我 们 的 意图 更 加 直截了当 : 

32> Adder = fun(ListItem, SumSoFar) -> ListItem + SumSoFar end. 

#Fun<erl1 eval.12.113037538> 

33> InitialSum = 0. 

0 

34> lists:foldl(Adder, InitialSum, Numbers). 

10 


哈哈 ， 这样 看 起 来 就 清楚 多 了 。 从 代码 中 可 以 看 出 ,我 们 保存 了 列表 和 ， 而 这 个 和 是 不 断 增 
加 的 。 我 们 把 SumSoFar 以 及 列表 Numbers 中 的 每 一 个 数 传 递 给 函数 Adder, 一 次 迭代 只 传递 列表 
中 的 一 个 数 。 每 一 次 迭代 ， 其 总 和 SumSoFar 都 会 增 大 ， 而 1ists:fold1 也 数 会 记 住 这 个 不 断 变 
化 的 总 和 ， 并 将 其 传 回 给 Adder。 最 终 ，1ists:fo1d1 将 返回 最 后 一 次 迭代 后 得 到 的 列表 和 。 

到 现在 为 止 , 你 看 到 的 都 是 在 现 有 列表 上 运行 的 函数 。 我 还 没 让 你 见识 到 每 次 只 构建 列表 中 
的 一 部 分 该 怎么 做 。 下 面 ， 我 们 就 来 攻克 列表 构建 的 这 部 分 内 容 。 

















我 刚才 介绍 的 所 有 列表 概念 ， 都 不 过 是 你 在 其 他 语言 中 已 经 见 过 的 思想 的 扩展 。 可 好 戏 还 在 
后 面 ， 你 马上 就 能 学 到 一 些 更 为 精妙 的 概念 。 我 们 尚未 涉及 列表 构建 的 内 容 ， 而 且 用 到 的 那些 简 
单 代 码 块 ， 也 只 是 相当 基本 的 一 种 抽象 。 

1. 列表 构造 

表面 上 看 ， 在 没有 可 变 状态 的 情况 下 ， 列 表 构 建 似乎 是 一 件 困 难 的 任务 。 如 果 用 Ruby 或 Io 
这 类 语言 ， 那 可 以 把 元 系 一 个 一 个 地 加 到 列表 中 。 但 如 果 用 的 是 没有 可 变 状 态 的 培 言 ， 我们 也 可 
以 返回 一 个 添加 了 新 元 素 的 列表 。 我 们 通常 从 列表 头 开 始 添加 。 这 种 添加 或 构造 也 要 用 到 [HI1T] 
结构 , 但 不 是 在 匹配 的 左边 ,而 是 在 右边 。 下 面 的 程序 用 列表 构造 方法 ,把 列表 中 的 每 个 元 素 都 
加 倍 : 


























J 第 一 个 参数 是 迭代 元 素 值 ， 第 二 个 参数 是 累加 需 。 
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erlang/double.erl 


-module(double). 
-export([double all/1]1). 


double all([]) -> [ 
double all([First|Rest]l) -> [First + Firstldouble all(Rest)|]. 


这 个 模块 输出 double_al11 的 函数 。 该 函数 有 两 个 不 同 的 子 句 。 第 一 个 子 句 表示 对 空 列 表 使 





用 double_al1， 将 仍然 返回 空 列 表 。 这 个 子 句 描述 的 规则 使 递归 最 终 能 够 停止 。 








第 二 个 子 句 规则 用 到 了 [HIT] 结 构 。 该 结构 不 仅 出 现在 匹配 语句 的 谓词 中 ， 还 出 现在 函数 定 











义 中 ,在 匹配 左边 是 [First|Rest] 结 构 , 用 于 把 列表 拆 分 成 第 一 个 元 素 和 第 一 个 元 系 之 外 的 部 分 。 





如 朱 把 它 用 在 匹配 右边 , 那么 它 实 现 的 功能 ， 就 变 成 了 是 列表 构造 而 不 是 分 解 。 上 面 的 例子 


中 ，[First + First|double_all(Rest)] 即 代表 列表 构造 ， 其 中 First + First 是 列表 的 第 
一 个 元 系 ，double_al11(Rest) 是 列表 的 其 余部 分 。 


CU 
人 一 





你 可 以 像 往 凋 那样 编译 和 运行 程序 : 
8> c(double). 

{ok,double} 

9> double:double all([l1l, 2，3]). 
[2,4,6] 

下 面 在 命令 行 中 结合 使 用 “| ”， 重 新 审视 一 下 列表 构建 这 一 概念 : 
14> [1| [2, 3]]. 

[L123] 

15> [[2, 3] | 1]. 

[[2,3] 11] 

16> [[] | [2, 3]]. 

[L5273] 

T1739 CL ls 

[1] 


这 结果 并 不 出 人 意料 。 第 二 个 参数 必须 是 个 列表 , 而 左边 的 第 一 个 参数 将 加 到 第 二 个 参数 之 
作为 新 列表 的 第 一 个 元 系 。 
下 面 ， 我 们 来 看 一 个 更 高 级 的 Erlang 概 念 











列表 解析 。 这 个 概念 是 我 们 前 面 讲 过 的 一 些 概 





念 的 综合 。 


2. 列表 解析 
任何 一 门 函数 式 语言 当中 ，map 都 是 最 重要 的 函数 之 一 。 只 要 用 上 map ， 列 表 就 可 以 自由 变 











化 ， 就 像 黑 客 帝 国 里 的 那些 反 铂 一样。 由 于 这 种 特性 的 重要 性 ，Erlang 进 一 步 提 供 了 一 种 更 加 简 


明 、 


可 一 次 执行 多 个 变换 的 形式 。 

我 们 现在 重新 打开 一 个 命令 行 ， 开 始 这 一 节 的 学 习 。 先 用 老 方法 来 做 映射 : 
1> Fibs = [1, 1, 2, 3, 5]. 

I 

2> Double = fun(X) -> X * 2 end. 

#Fun<erl eval.6.13229925> 

3> lists:map(Double, Fibs). 

[2,2;4,.6,10] 
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这 里 有 一 个 数字 列表 Fibs ， 还 有 一 个 令 传人 参数 加 倍 的 匿名 函数 Double。 人 然后 我 们 调用 
1ists:map, 通过 它 在 列表 的 每 个 元 素 上 调用 Double, 并 从 返回 结果 中 得 到 一 个 新 列表 。 这 是 一 
个 绝妙 的 方法 ， 因 为 我 们 会 经 常用 到 它 ， 所 以 Erlang 又 提供 了 另 一 种 语法 意义 相同 、 但 简明 得 多 
的 方法 ， 也 就 是 列表 解析 结构 。 下 面 就 是 前 面 的 映射 代码 使 用 列表 解析 的 等 价 形式 : 

4> [Double(X) || X <- Fibs]. 

[2,2,4,6,10] 

用 大 白话 描述 ， 这 上 段 代 码 的 意义 就 是 :“ 取 出 列表 Fibs 中 的 每 个 元 素 Xx， 再 把 xX 加倍。” 如 果 
你 喜欢 的 话 ， 也 可 以 把 中 间 变 量 去 掉 : 

5> [X * 2 || X <- [1, 1, 2, 3, 5]]. 

[2s2 4,.6. 10|] 

表达 的 意义 丝毫 没 变 : 取出 列表 [1,1,2,3,5] 中 的 每 个 元 素 X， 并 计算 X*2 的 值 。Erlang 的 这 
一 特性 并 不 仅仅 是 语法 糖 。 接 下 来 ,我 们 会 写 一 些 更 复杂 的 列表 解析 。 首 先 ， 我 们 用 列表 解析 把 
map 定 义 得 更 和 价 洁 些 : 

map(F，L) -> [ FCJ || XxX <- [L]， 


其 含义 是 : 也 数 F 在 列表 L 上 的 映射 ， 就 是 对 L 中 的 每 个 元 厅 X 执 行 F 之 后 ， 得 到 的 集合 F(X) 。 
下 面 ， 我 们 对 一 个 包含 了 商品 名 称 、 数 量 和 价格 的 商品 目录 使 用 列表 解析 : 

7> Cart = [{pencil, 4, 0.25}, {pen, 1, 1.20}, {paper, 2， 0.20}]. 

[{pencil,4,0.25}, {pen,1,1.2},{paper,2,0.2}] 

假如 我 要 对 1 美元 商品 收 8 美 分 税 ， 仅 用 一 个 列表 解析 ， 就 能 给 列表 加 上 税 款 这 一 项 ， 并 返回 
一 个 新 列表 ， 像 下 面 这 样 : 


8> WithTax = [{Product, Quantity, Price, Price >* Quantity * 0.08}+ | | 
{Product, Quantity, Price} <- Cart] . 
[{pencil,4,0.25,0.08},{pen,1,1.2,0.096}, {paper,2,0.2,0.032}] 


先前 学 过 的 Erlang 概 念 ， 在 这 里 仍然 管用 : 这 玩意 儿 还 是 个 模式 匹配 ! 这 段 代码 表达 的 意思 
是 : 从 列表 Cart 中 取出 每 一 个 元 组 {Product，Quantity，Pricey， 返 回 由 Product、Price、 
Quantity 以 及 税 款 (Price*Quantity*0.08) 组 成 的 多 元 组 列表 。 这 段 代 人 码 在 我 看 来 真是 妙 不 
可 言 。 现 在 ， 只 要 想 改 变 列表 的 形式 ， 就 可 以 使 用 列表 解析 帮 我 们 上 自由 变化 列表 。 

还 有 一 个 例子 。 比 如 我 现在 有 个 目录 ,我 想 对 我 的 高 级 客户 提供 内 容 相同 但 打 了 五 折 的 目录 。 
这 个 目录 可 能 像 下 面 这 样 ， 把 每 类 商品 从 前 面 那 个 列表 Cart 中 取出 来 ， 但 去 邱 数 量 : 

10> Cat = [{Product, Price} || {Product, _, Price} <- Cartl]. 

[{penc1i11,0.25}, {pen,1.2},{paper,0.2}] 

这 就 是 说 ， 从 列表 Cart 中 取出 每 一 个 包含 Product 和 Price 的 元 组 (忽略 第 二 个 属性 )， 返 
回 由 Product 和 Price 组 成 的 多 元 组 列表 。 接 下 来 实现 打折 : 


11> DiscountedCat = [i{Product, Price / 2} || {Product, Price} <- Catl]. 
[{pencil,0.125},{pen,0.6},{paper,0.1}] 


这 代码 人 简 清 、 允 虱 、 威 力 强大 ， 是 一 种 优 关 的 抽象 。 
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实际 上 , 我 这 里 展示 的 只 是 列表 解析 全 部 威力 的 冰山 一 角 。 它 的 终极 形式 比 前 面 提 到 的 这 些 
还 要 强大 得 多 : 

口 列表 解析 采用 的 形式 是 : [表达 式 | 子 句 1, 子 句 2,.…., 子 句 N]; 

口 列表 解析 可 拥有 任意 数量 的 子 句 ; 

口子 句 可 以 是 生成 咒 〈generator ) 或 入 选 器 ( filter ); 

口 筛选 器 可 以 是 布尔 表达 式 ， 也 可 以 是 返回 布尔 值 的 函数 ; 

口 生成 硕 采 用 Match <- List 的 形式 。 它 在 右边 列表 的 各 元 素 上 ， 执 行 左边 式 子 所 表示 的 

模式 匹配 。 

说 真 的 ， 这 些 并 不 算 太 难 。 生 成 大 是 加 进来 一 些 东 西 ， 而 角 选 器 是 挪 出 去 一 些 东 西 。 这 里 ， 
我 们 能 看 到 Prolog 语 言 带 来 的 大 量 影响 。 生 成 天 决定 了 列表 中 所 有 可 能 出 现 的 值 ， 而 笑 选 需 根 据 
给 定 条 件 裁剪 列表 。 下 面 是 两 个 例子 : 

[Xx ||X <- [1, 2, 3, 4], X< 4,X > 1]. 

[253| 


用 语言 来 描述 ， 它 返回 Xx，X 从 [1，2，3，4] 中 取 值 ， 小 于 4 且 大 于 1。 我 们 还 可 以 使 用 多 个 
生成 带 : 
23> [{X, Y} ||X <- [1l, 2, 3, 4],X<3,Y <- [5, 6]]. 


Lleol 0 12 9 322509| 
24> 


这 有 段 代码 把 X 和 Y 组 成 元 组 {人 X，Y}， 其 中 X 从 [1，2，3，4] 中 取 值 且 小 于 3，Y 从 [5，6] 中 取 
值 。 最 终 满 足 要 求 的 有 两 个 X 值 和 两 个 Y 值 ，Erlang 计 算 了 它们 的 备 卡 儿 积 。 

这 一 天 的 全 部 内 容 就 是 这 些 。 你 已 经 学 会 了 如 何 用 Erlang 进 行 顺序 编程 。 我 们 现在 稍 作 休息 ， 
先 复 习 一 下 ， 再 做 些 习 题 。 














6.3.5 ”第 二 天 我 们 学 到 了 什么 


说 老实 话 ， 我 们 今天 在 Erlang 表 达 式 或 库 等 内 容 上 并 没 学 得 有 多 座 , 但 你 现在 也 已 经 学 到 了 足 
以 写 出 函数 式 程序 的 水 平一 开始 ,你 学 到 的 只 是 一 些 简 单 结构 ,但 很 快 我 们 就 加 快 了 等 习 的 速度 。 

接 下 来 ,我 们 党 习 了 高 阶 国 数 。 你 可 以 在 列表 中 使 用 高 阶 吨 数 ,来 对 列表 进行 迭代 、 幕 选 和 
修改 。 你 也 学 会 了 如 何 用 fold1 来 把 结 末 汇 总 起 来 ,就 像 在 Scala 中 用 过 的 那样 。 

最 后 ， 我 们 接触 了 一 些 高 级 列表 思想 。 我 们 在 匹配 式 左 边 使 用 [HI1T] ， 把 列表 分 解 成 第 一 个 
元 素 和 剩余 部 分 。 我 们 又 在 匹配 式 右边 使 用 或 单独 使 用 [HIT] ， 从 列表 头 开始 构建 列表 。 之 后 ， 
我 们 还 进一步 学 习 了 列表 解析 。 这 是 一 种 优雅 而 强大 的 抽象 ， 可 以 通过 生成 训 和 和 沛 选 各 ,对 列表 
进行 快速 变换 。 

这 些 语法 像 是 一 锅 大 杂烩 。 不 过 由 于 Erlang 有 动态 类 型 全 上 略 ， 我 们 仅 用 到 很 少 的 类 型 ， 束 能 
明日 这 些 高 级 概念 。 然 而 ，Erlang 也 有 一 些 东 西 让 人 觉得 别扭 ,尤其 是 不 同位 置 的 case 和 jif 子 句 
后 面市 的 分 号 。 

下 一 市 ， 我 们 将 明日 这 一 市 花 的 这 些 工夫 都 是 为 了 什么 ， 我们 要 解决 的 是 并 发 问题 。 
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6.3.6 第 二 天 自习 


做 
口 考虑 包含 键 - 值 元 组 的 列表 ,如 [{erlang, "a functional language"}, {ruby, "an 
00 1anguage"}]。 写 一 个 孔 数 ， 接 受 列表 和 键 为 参数 ， 返 回 该 键 对 应 的 值 。 
口 考虑 形 如 [{item quantity price}，...] 的 购物 列表 。 写 一 个 列表 解析 ， 构 建 形 如 
[{item total_pricey，:...] 的 商品 列表 ， 其 中 total_price 是 quantity 乘 以 price。 
口 加 分 题 : 读 取 一 个 大 小 为 9 的 列表 或 元 组 ,表示 井 字 棋 ( tic-tac-toe ) 的 棋盘 。 硅 胜 人 负 已 定 ， 
则 返回 胜 者 ( x 或 o ); 硅 再 没有 可 走 的 棋 厦 ， 则 返回 cat; 寿 两 方 都 还 没 顾 ， 则 返回 


no_winner, 








6.4 第 三 天 : 红 药 丸 


不 少 人 可 能 已 经 知道 ， 在 母体 (Matrix ) 中 ,上 吃 下 蓝 药 丸 的 人 可 以 浑 尝 中 于 、 但 无 忧 无 处 地 
生活 下 去 ; 而 吃 下 红 药 丸 的 人 能 看 到 真相 ,但 有 时 候 ， 真 相 是 会 伤 人 的 。 

如 今 我 们 所 在 的 整个 编程 行业 , 都 在 大 把 大 把 地 否 食 蓝 药丸 , 束 好 像 来 到 阿姆斯特丹 的 牧师 
之 子 一 样 : 并 发 不 好 用 ， 于 是 我 们 就 尽量 避免 用 它 ; 我 们 用 了 可 变 状态 ， 因 此 程序 在 并 发 运行 
的 时 候 就 可 能 导致 冲突 ; 我 们 的 末 数 和 方法 都 有 副作用 , 所 以 就 无 法 验证 其 正确 性 ， 或 是 去 预测 
其 结 东 ; 为 了 提升 性 能 ,我 们 采用 的 不 是 无 需 共 齐 资 源 的 进程 ， 而 是 共享 了 状态 的 线程 ， 这 就 要 
求 我 们 做 一 些 附 市 工作 ， 以 保证 每 段 代码 都 不 出 差错 。 

这 几 件 事 堆 在 一 块 , 后 果 就 是 一 团 乱 碎 。 并 发 之 所 以 会 伤害 我 们 , 并 不 是 因为 它 真 有 那么 难 ， 
而 是 因为 我 们 一 下 在 使 用 错误 的 编程 模型 | 

我 在 这 章 前 面 的 部 分 曾 提 到 过 ，Erlang 会 把 一 些 人 向 单 的 事情 变 难 。 在 一 个 既 没 有 副作用 、 又 
没有 可 变 状 态 的 环境 中 , 你 必须 将 目 己 的 编程 习惯 全 盘 改 变 。 也 许 在 许多 人 眼中 ,Erlang 的 这 种 
基于 Prolog 的 博 法 规则 有 些 上 匪夷所思， 而 你 却 只 能 秋 移 接受 它 。 然 而 ， 此 时 此 歼 , 收获 的 季 世 就 
在 眼前 。 这 颗 代 表 关 并 发 和 可 靠 性 的 红 药 九 ， 现 在 你 尝 在 嘴 里 就 好 似 窄 糖 。 下 面 ， 我 们 就 来 看 
看 这 是 为 什么 。 


6.4.1 基本 并 发 原 语 


Erlang 的 三 种 并 发 原 语 是 : 用 “!” 发 送 消 息 ， 用 spawn 产 生 进程 以 及 用 receive 接 收 消 息 。 
本 方 , 我 会 教 你 如 何 利 用 这 三 种 原 语 发 送 和 接收 消息 ,并 用 它们 实现 简单 的 客户 端 - 服务 需 端 惯 

































































QD 这 里 所 说 的 牧师 之 子 (preacher’s kid )， 指 的 是 一 种 美国 式 的 刻板 印象 :因为 牧师 是 神职 人 员 ， 家教 森 严 ， 他 们 的 
孩子 通 津 成 长 于 极其 严 柯 的 环境 之 中 ， 因 此 当 牧 师 的 孩子 长 大 成 人 人、 独立 生 活 之 后 ,往往 会 变 得 离 经 叛 道 、 放 水 
不 著 ,， 沾染 上 醒酒 甚至 吸毒 等 恶习 。 至 于 阿姆斯特丹 ,我 们 都 知道 , 那里 贩卖 、 购 买 毒 品 都 是 合法 的 。 文 中 借 “ 来 
到 阿姆斯特丹 的 牧师 之 子 ” 来 比喻 整个 编程 行业 已 对 吃 蓝 药丸 司空 见 惯 ， 也 就 是 对 诸多 不 足 之 处 视而不见 ， 而 不 
是 去 直面 问题 并 加 以 改进 。 
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用 法 。 
1. 基本 的 接收 循环 
我 们 移 来 看 一 个 翻译 进程 。 如 果 你 把 一 个 西班牙 霹 字 符 串 发 送 给 该 进程 , 它 会 返回 字符 串 的 
区 请 译文。 一般 来 说 ， 我 们 采用 的 宁 略 是 先 产 生 一 个 进程 ， 再 使 用 一 个 循环 接收 并 处 理 消息 。 
下 面 是 最 基本 的 接收 循环 : 


erlang/translate.erl 





























-module(translate). 
-export([1oop/0] ) . 


loop() -> 
receive 
"Casa” -> 
10:format("house~n"), 
1oop() ; 


"blanca™” -> 
10:format("white~n"), 
1oop() ; 
一 人 冯 
io:format("I don't understand.~n"), 
1o0p() 


end. 

这 个 例子 比 这 章 之 前 看 过 的 例子 要 长 一 些 , 所 以 我 们 把 它 分 解 来 看 。 代 码头 两 行 定义 了 模块 
translate， 并 输出 了 商 数 10op。 之 后 紧 挨 着 的 代码 块 ， 就 是 叫做 lo0op 〇 的 函数 : 

loop() -> 


end. 

注意 ， 块 中 代码 调用 了 三 次 1oopG ,， 却 什么 都 没 返回 ， 这 是 有 道理 的 。Erlang 对 尾 递 归 做 了 
优化 ， 所 以 只 要 1oop 〇 在 每 个 receive 子 句 的 最 后 一 行 ， 它 就 不 会 带 来 什么 开销 。 但 这 样 做 ， 只 
是 定义 了 一 个 永远 循环 下 去 的 空隙 数 。 接 下 来 看 看 receive: 


receive -> 














这 个 函数 接收 其 他 进程 发 过 来 的 消息 。 它 与 Erlang 的 其 他 模式 匹配 结构 ( 如 case、 子 数 定义 
等 ) 的 运行 方式 相似 。 你 可 以 在 receive 后 面 放 上 几 个 模式 匹配 结构 。 我 们 这 里 的 其 中 一 个 匹配 
是 这 样 的 : 

"Casa” -> 

10:format("house~n"), 
1oop() ; 


这 是 个 匹配 子 句 ， 语 法 和 case 语 句 室 无 二 致 。 如 有 条 收 到 的 消息 能 匹配 字符 串 "casa" ， 就 会 
执行 下 面 那 两 行 代 码 。 各 行 代 码 由 ,分隔 开 ， 遇 到 “;” 时 子 句 即 告终 止 。 上 面 的 代码 会 显示 单词 
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house, 然后 下 调用 1oop。( 记 住 ， 因 为 loop 是 最 后 调用 的 也 数 ， 所 以 在 栈 上 没有 开销 。) 其 他 几 
个 匹配 子 句 也 都 是 这 样 的 形式 。 

现在 我 们 有 了 一 个 模块 ， 其 中 包含 receive 循 环 。 是 时 候 用 它 做 点 什么 了 。 

2. 产生 进程 

首先 ， 编 译 这 个 模块 : 

1> c(translate). 

{ok,translate} 


产生 进程 要 使 用 spawn 国 数 ， 它 
的 轻 量 级 进程 中 局 动 。spawn 还 会 返 
参数 传人 到 spawn 气 数 中 : 


2> Pid = spawnCfun translate:1oop/0) . 
<0.38.0> 


可 以 看 到 ， Erlang 返回 的 进程 ID 是 <0.38.0>。 在 命令 行 界面 中 ,你 会 看 到 一 对 尖 插 号 包含 着 
进程 ID。 我 们 这 里 只 涉及 产生 进程 的 最 基本 形式 , 但 你 应 该 知道 ， 还 存在 其 他 一 些 产 生 形式 。 你 
可 以 用 名 字 注 册 进 程 , 这 样 一 来 ， 其 他 进程 就 可 以 通过 名 字 找 到 如 公用 服务 之 类 的 进程 ， 而 不 是 
通过 进程 ID。 如 果 你 想 拥 有 运行 时 更 改 代 码 或 者 说 “ 热 搬 拔 ”的 能 力 ， 也 可 以 来 用 别 的 spawn 形 
式 ， 如 果 你 要 产生 一 个 远程 进程 ， 还 可 以 用 spawn (Node,function)。 不 过 ， 这 些 内 容 超 出 了 本 
书 的 讨论 范围 。 

现在 ,我 们 已 经 用 代码 块 编写 了 一 个 模块 ， 还 用 它 产 生 了 一 个 轻 量 级 进程 。 我 们 要 做 的 最 后 
一 步 ， 就 是 把 消息 传递 给 它 。 这 也 是 我 们 的 第 三 个 Erlang 原 语 。 

3. 发 送 消 息 

使 用 运算 符 !， 就 可 以 在 Erlang 中 传递 分 布 式 消 且 ， 就 像 在 Scala 那 草 见 过 的 那样 。 其 用 法 是 
Pid ! message，Pid 可 以 是 任意 一 个 进程 ID ， 消 息 也 可 以 是 包括 原 语 、 列 表 、 元 组 在 内 的 任意 
值 。 现在 ， 我 们 来 发 送 几 条 消息 : 

3> Pid ! "casa'". 

"house" 

"casa” 

4> Pid !1 "blanca". 

"white" 

"blanca" 

5> Pid ! "loco"™. 


"I don't understand." 
"1oco" 


这 里 的 每 行 代码 都 发 送 了 一 条 消息 。 先 是 receive 子 句 中 的 io:format 打 印 了 一 条 消息 ， 然 
后 命令 行 把 表达 式 的 返回 值 ( 即 我 们 发 送 的 那 条 消息 ) 也 打印 了 出 来 。 

如 果 你 要 做 的 是 把 分 布 式 消 息 发 送 给 命名 资源 ， 那 你 应 该 用 另 一 种 语法 : node@server ! 
message。 配 置 远程 服务 硕 并 不 在 本 书 的 讨论 范围 内 ， 但 只 要 稍 加 目 学 ， 你 就 能 很 快 明 白 如 何 去 
运行 一 个 分 布 式 服务 天 。 


又 高 有 一 个 也 数 参 数 。 而 这 个 作为 参数 的 函数 ， 会 在 一 个 新 
回 一 个 进程 ID ( PID )。 下 面 ， 我 们 通过 trans1late 模 块 ， 把 
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上 面 的 例子 展示 了 这 三 个 基本 原 语 的 用 法 以 及 如 何 用 它们 共同 完成 简单 的 异步 服务 程序 。 你 
串 能 已 注意 到 ， 这 个 例子 不 宙 有 运 回 值 ， 因 此 下 一 市 中 ， 我 们 就 要 人 研究 如 何 发 送 同 步 消 甩 。 





6.4.2 ”同步 消息 


有 些 并 发 系统 是 异步 运行 的 ， 比 如 电话 交谈 。 发 送 者 只 管 发 送 消 息 ， 而 不 必 等 待 啊 应 ; 有 些 
则 是 同步 运行 的 ， 比 如 上 网 ， 我 们 请 求 某 个 网 页 ， 在 Web 服 务 器 把 网 页 发 回来 之 前 ， 我 们 只 能 等 
竺 啊 应 。 下 面 ,， 我们 要 把 前 面 那个 打印 返回 值 的 翻译 服务 ， 转 变 为 真正 地 把 翻译 过 的 字符 串 返 回 
给 用 户 的 服务 。 

为 了 把 消息 模型 从 异步 变 为 同步 ， 我 们 将 采用 以 下 三 部 分 策略 。 

口 消息 服务 中 的 每 个 receive 子 句 都 要 匹配 一 个 元 组 ,元 组 包含 请 求 此 次 翻译 服务 的 进程 ID 

以 及 需要 翻译 的 词 。 有 了 这 ID ， 我 们 就 知道 该 把 响应 发 给 谁 。 

口 每 个 receive 子 句 都 要 把 啊 应 送 回 给 发 送 者 ， 而 不 是 把 结果 打印 出 来 。 

口 不 再 使 用 简单 的 ! 原 语 ， 而 是 写 一 个 简单 的 柄 数 来 发 送 请 求 和 等 待 啊 应 

背景 资料 就 是 这 些 。 下 面 ， 我 们 看 看 具体 实现 的 各 个 方面 。 

1. 同步 接收 

第 一 项 任务 是 给 我 们 的 receive 子 句 加 几 个 参数 ， 这 意味 着 要 用 到 元 组 。 有 了 模式 匹配 ， 
件 事 并 不 困难 。 添 加 人 参数 后 的 receive 子 句 如 下 所 示 : 


receive 
{Pid, "casa"} -> 
Pid ! "house", 
1o00p(); 
























































它 会 匹配 后 面 眼 着 casa 一 词 的 元 素 (该 元 素 应 是 进程 ID )， 然后 它 会 把 house 发 送 给 接收 者 ， 
并 回 到 子 句 顶 端 开 始 下 一 次 循环 。 

注意 这 里 的 模式 匹配 ; 元 组 第 一 个 元 素 是 发 送 进程 的 ID , 这 是 receive 子 名 的 一 种 常见 形式 。 
除 此 之 外 ， 它 和 先前 的 receive 子 句 只 有 一 个 较 大 区 别 : 不 是 打印 结果 ， 而 是 把 结果 发 回去 。 然 
而 ， 和 刚才 所 说 的 接收 消息 相 比 ， 发 送 消息 的 确 有 点 儿 难 度 。 

2. 同步 发 送 

说 完 接收 ， 我 们 再 看 看 等 式 的 另 一 边 上 县。 我 们 先 来 发 一 条 消息 ， 然 后 立即 进入 等 
待 啊 应 状态 。 既 然 receiver 已 提供 了 进程 ID ， 那 么 发 送 一 条 同步 消息 就 类 似 下 面 这 样 : 

Receiver ! “message to translate", 

reCe1Vve 


Message -> do_something with(Message) 
end 


因 人 要 人 息 ， 所 以 可 以 把 发 送 至 服务 套 的 请 求 封 装 起 来 ， 从 而 简化 这 一 服务 。 在 这 
个 例子 中 ， 这 个 简单 的 远程 过 程 调 用 如 下 所 示 : 


Mba Word) -> 
To ! {self(), Word}, 
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receive 
Translation -> Translat1ion 
end. 


综合 以 上 这 些 内 容 ， 你 可 以 写 一 个 稍 复 杂 点 儿 的 并 发 程序 : 


erlang/translate_service.erl 





-module(translate service). 
-export([loop/0, translate/2]). 


loop() -> 
receive 
{From, "casa"} -> 
From ! "house", 
loopQ); 


{From, "blanca"”} -> 
From ! "white”", 
1oop() ; 


{From, _} -> 
From ! "I don't understand.", 
1o0p() 


~ 
CTIU. 


translate(To, Word) -> 
To ! {self(), Word}, 
receive 
Translation -> Translation 
end . 


其 用 法 如 下 所 示 : 


1> c(translate service). 
{ok,translate servicet} 
2> Translator = spawn(fun translate service:1oop/0). 





<0.38.0> 

3> translate service:translate(Translator, "blanca"). 
"white" 

4> translate service:translate(Translator, "casa'"). 
"house" 


我 们 不 过 是 编译 了 这 上 段 代 码 、 产 生 循环 ,再 用 我 们 刚刚 编写 的 辅助 函数 请 求 同 步 服 务 。 如 你 
所 见 , Trans1lator 进 程 如 今 返 回 的 是 经 过 翻译 词语 得 到 的 字符 串 值 ,而 且 我 们 用 的 是 同步 消息 。 

现在 ， 你 已 经 理解 了 基本 的 receive 循 环 结构 是 什么 样 的 。 每 个 进程 都 有 个 信箱 ，receive 
结构 只 是 把 消息 从 信箱 队列 中 取出 来 ,， 先 用 它 去 匹配 某 个 函数 ,再 去 执行 这 个 匹配 上 的 函数 。 进 
程 利 用 消息 传递 机 制 ， 在 进程 间 彼 此 通信 。Armstrong 博 士 将 Erlang 称 为 真正 的 面 回 对 象 语言 ， 这 
可 不 是 随便 说 说 。 它 提供 了 消息 传递 和 封装 等 行为 ， 而 我 们 付出 的 代价 , 仅仅 是 失去 了 可 变 状 态 
和 继承 ， 而 继承 可 以 通过 高 阶 函 数 来 模拟 。 
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目前 为 止 , 我 们 只 在 简单 而 又 理想 的 条 件 下 运行 过 Erlang 程 序 , 它们 并 不 具备 错误 恢复 能 力 。 
尽管 Erlang 提 供 了 受 控 异常 ”( checked exception ) 机 制 ， 但 接 下 来 ， 我 想 带 你 体验 一 种 不 同 的 错 
误 处 理 方式 。 


6.4.3 ”链接 进程 以 获得 可 靠 性 








本 市 中 ， 我 们 将 学 习 如 何 链 接 进 程 ， 以 便 获 得 更 好 的 可 菲 性 。Erlang 文 持 把 两 个 进程 链接 起 
来 。 只 要 其 中 一 个 进程 终止 ， 它 就 会 将 退出 信号 发 送 给 与 之 链接 的 同伴 。 这 样 一 来 ,太一 个 进程 
会 接收 到 这 个 信号 ， 并 相应 地 作出 反应 。 

1. 产生 链接 进程 

要 想 弄 明白 链接 起 来 的 两 个 进程 是 如 何 协作 的 , 我 们 必须 先 创 建 一 个 易于 终止 的 进程 。 这 里 
我 创建 了 一 个 俄罗斯 轮 盘 赌 游戏 ”, 其 中 有 一 把 六 弹 膛 枪 。 只 要 发 送 1~6 当 中 的 某 个 数字 给 枪 进程 ， 
就 会 击发 数字 对 应 的 那个 弹 膛 。 夺 是 恰好 输入 子弹 所 在 的 弹 膛 ， 则 该 进程 会 “ 杀 死 ”日 己 。 下 面 
是 这 个 游戏 的 代码 : 


erlang/roulette.erl 























-module(roulette). 
-export([1o00p/0]). 


% send a number, 1-6 
loop() -> 
receive 
3 -> io:format("bang.~n"), exit({roulette,die,at,erlang:time()}); 
-> 10:format("click~n"), lo0pQ) 


end. 

这 个 实现 相当 人 简单: 我 们 写 了 个 消息 循环 ， 匹 配 3 将 执行 代码 io:format("bang~n")， 
exit({roulette,die,at,erlang:time()};, 这 会 终止 该 游戏 进程 ; 匹配 其 他 东西 则 只 是 打印 
出 一 条 消息 ， 然 后 返回 循环 顶端 继续 执行 。 

这 样 我 们 就 得 到 了 一 个 简单 的 客户 端 -服务 喜 端 程序 ， 客 户 疹 是 命令 行 ， 服 务 需 端 是 
roulette( 轮 盘 财 ) 进程 ， 如 图 6-1 所 示 。 














中 受 控 异 常 是 一 种 源 于 Java 的 异常 处 理 概 念 。 它 是 相对 于 运行 时 异常 (runtime exception ) 而 言 的 ， 指 的 是 必须 用 
try..catch 语 句 在 编译 时 捕获 并 处 理 的 异常 ， 比 如 IO 异常 、SQL 异 滑 等 。 可 以 说 ， 它 们 是 程序 无 法 直接 控制 、 而 
依赖 于 外 部 条 件 的 一 种 异常 。 反 之 ， 运 行 时 异常 不 必 在 编译 时 捕获 并 人 处理， 一 般 是 由 于 程序 员 的 错误 而 导致 的 ， 
比如 数组 越界 异常 、 空 指针 异常 等 。 对 于 这 类 异常 ， 需 要 仔细 检查 错误 所 在 并 改正 过 来 。 

Q 是 一 种 残忍 的 以 生命 为 赌注 的 赌博 游戏 ， 一 般 用 左轮 手枪 为 道具 。 假 如 用 的 是 六 弹 膛 手枪 ， 其 中 一 个 弹 梨 装 有 子 
弹 ， 每 人 轮流 向 自己 击发 ， 则 死亡 概率 均等 。 该 游戏 据说 最 早 流 行 于 参加 一 战 的 沙俄 士兵 中 ， 由 此 得 名 “俄罗斯 
轮 盘 赌 ”。 时 至 今日 ， 美 国 等 西方 国家 仍 时 而 有 因 玩 这 种 游戏 丧命 的 人 。 
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图 6-1 简单 的 客户 端 -服务 器 端 设计 
上 面 那 段 代码 执行 起 来 会 是 什么 样 ? 请 看 下 面 的 代码 执行 过 程 。 


1> CCroulette) . 
{ok,roulette} 
2> Gun = spawn(fun roulette:1oop/0) . 


<0.38.0> 
3> Gun ! 1. 
"click”™ 

1 

4> Gun ! 3. 
"bang 

3 

5> Gun ! 4. 
4 

6> Gun ! 1. 





1 
这 里 的 问题 在 于 ， 发 送 了 消息 3 之 后 ，Gun 进 程 就 会 终止 。 因 此 ，3 之 后 发 送 的 销 息 其 实 什么 
都 没 做 。 实 际 上 ， 我 们 可 以 判断 进程 是 否 终止 : 


7> erlang:is_ process_ alive(Gun). 
false 


看 得 出 来 ， 这 进程 真是 “ 没 气 儿 ” 了 ,是 时 候 把 它 搁 在 板 车 上 拉 走 了 。 不 过 ,我 们 还 能 把 这 
件 事 做 得 更 漂亮 些 。 我 们 可 以 做 个 监视 器 (monitor )， 告 诉 我 们 进程 是 否 终止 。 我 党 得 它 似乎 更 
像 是 验尸 官 〈coroner ) 而 不 是 监视 带 ， 因 为 我 们 只 对 进程 死 没 死 这 件 事 感 兴 趣 。 

下 面 就 是 做 这 件 事 的 代码 : 


erlang/coroner.erl 











-module(coroner). 
-export([100p/0]). 


loop() -> 
process_flag(trap_exit, true), 
receive 
{monitor, Process} -> 
1ink(Process), 
10:format("Monitoring process.~n"), 
1oop() ; 


{'EXIT', From, Reason} -> 
io:formatC "The shooter ~p died with reason ~p.”", [From, Reason]), 
10:format("Start another one.~n"), 


]1oop OO) 
end . 


图 灵 社 区 会 员 LorraineMeillorrainemei@gmail.com) 专 享 尊重 版 权 


164 第 6 章 Erlang 





和 前 面 一 样 ， 我 们 写 了 个 receive 循 环 。 不 过 在 做 其 他 事 之 前 ， 这 程序 必须 先 注册 进程 ， 使 
之 可 捕获 到 退出 。 不 这 样 做 的 话 ， 你 就 无 法 接收 到 EXIT 消 乱 。 
然后 ， 我 们 要 处 理 接收 到 的 消息 。 我 们 可 能 接收 到 两 种 类 型 的 元 组 : 其 一 是 以 原子 monitor 
开头 的 元 组 ， 其 二 是 以 字符 串 ' EXIT "开头 的 元 组 。 现 在 ， 我 们 来 仔细 地 看 一 下 这 两 种 类 型 : 
{monitor, Process} -> 
1ink(Process), 


io:format( Monitoring process.~n )， 
1oop() ; 


这 段 代码 把 “验尸 官 ” 进 程 链接 到 以 Process 为 PID 标 识 的 任意 进程 上 。 你 也 可 以 用 
spawn_1ink， 产 生 一 个 市 有 链接 的 进程 。 现 在 ， 如 果 被 监视 的 进程 即将 终止 ， 它 会 发 送 退 出 消 
恩 给 coroner。 下 面 ， 我 们 再 来 看 看 捕获 错 谋 的 代码 : 

{'EXIT', From, Reason} -> 


10:format("The shooter died,. Start another one.~n"), 
1o0p() 








end. 

这 段 代 码 匹 配 了 退出 消息 。 这 消息 是 个 三 元 组 ， 其 中 第 一 个 元 素 是 'Exit' ， 后 面 跟着 
From 一 一 濒 死 进 程 的 PID， 还 有 出 错 原 因 。 我 们 把 濒 死 进 程 的 PID 和 出 错 原 因 全 都 打印 了 出 来 。 
下 面 是 完整 的 运行 流程 : 


1> c(roulette). 

{ok,roulette} 

2> Cc(coroner). 

{ok,coroner} 

3> Revolver=spawn(fun roulette:1oo0op/0). 
<0.43.0> 

4> Coroner=spawn (fun coroner:1oop/0) . 
<0.45.0> 

5> Coroner ! {monitor, Revolver}. 
Monitoring process. 

{monitor,<0.43.0>} 

6> Revolver ! 1. 

click 

1 

7> Revolver ! 3. 

bang. 

3 

The shooter <0.43.0> died with reason 
{roulette,die,at,{8,48,1}}. Start another one. 


我 们 刚才 写 的 这 个 程序 ， 比 起 客户 问 - 服务 山中 程序 是 更 进一步 了 。 我 们 添加 了 一 个 监视 带 
进程 ， 如 图 6-2 所 示 。 这 样 一 来 ， 我 们 就 能 判断 进程 何 时 终止 了 。 
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大 妆 加 E9 
监视 大 
(coroner 


进程 ) 


服务 如 


(roulette 


进程 ) 


图 6-2 ”添加 监视 功能 


2. 从 验尸 官 到 医生 

我 们 还 能 更 上 一 层 楼 。 如 果 枪 已 经 注册 过 (我 可 没 影射 现实 世界 的 检 文 ” )， 游 戏 玩家 就 没 必 
要 再 去 获知 这 文 枪 的 PID 了 。 然后 ,我 们 把 创建 这 支 枪 的 代码 也 挪 到 了 “验尸 冒 ” 程 序 中 ; 最 后 ， 
进程 只 要 一 终止 ,“ 验 尸 家 ”就 可 以 重 局 该 进程 。 这 样 一 来 ， 我 们 不 必 生 成 很 多 错误 报告 ， 就 能 
获得 更 好 的 可 对 性 。 此 时 此 刻 ,“ 验 尸 官 ”不 再 是 “验尸 和 家”， 他 变 身 成 了 一 位 “医生 ”， 一 位 号 
怀 妙手 回春 之 术 的 “医生 ”。 下 面 是 这 个 “医生 ”程序 的 代码 : 


erlang/doctor.erl 











-module(doctor). 
-export([1oop/0] ) . 


loop() -> 
process_flag(trap_exit, true), 
receive 
new -> 
io:format("Creating and monitoring process.~n"), 
register(revolver, spawn_link(fun roulette:1o00p/0)), 
loopQ); 





{'EXIT', From, Reason} -> 


io0o:format("The shooter ~p died with reason ~p.", [From, Reason|), 
io:format(" Restarting. ~n"), 

self() ! new， 

1oo0p() 


end. 
现在 ，receive 语 句 块 匹配 了 两 条 消息 : 一 个 是 new， 男 一 个 是 和 先前 相同 的 EXIT 三 元 组 。 
但 与 “验尸 官 ” 程 序 相 比 ， 两 条 消息 之 后 的 内 容 都 稍 有 不 同 。 在 new 代 码 块 中 ,下面 的 这 行 代码 
堪 称 绝妙 : 








由 美国 很 多 州 政府 都 有 枪 文 必须 注册 的 法 律 ， 因 此 这 里 的 “ 枪 已 注册 ”可 能 会 被 人 误 以 为 有 什么 一 语 双关 之 意 。 实 
际 上 ， 这 里 指 的 并 不 是 枪 文 注册 ， 而 是 枪 进程 的 注册 。 不 过 作者 举 这 样 一 个 例子 ， 其 实 也 是 想 开 个 小 玩笑 。 
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register(revolver, spawn_link(fun roulette:100p/0)), 

从 里 面 那 个 括号 开始 看 ， 我 们 用 了 spawn_1ink 来 产生 进程 。 这 种 方式 不 仅 能 产生 进程 ， 还 
能 把 进程 链接 起 来 。 这 样 当 roulette 进 程 终止 时 ,doctor 进 程 就 能 获得 通知 。 再 看 外 面 的 括号 ， 
我 们 注册 了 那个 新 产生 进程 的 PID ,把 它 和 revolver 原 子 关联 起 来 ,现在 ,用 户 可 以 用 revolver ! 
message 这 种 形式 发 送 消 息 给 新 产生 的 进程 。 从 今 往 后 ， 我 们 再 也 不 需要 PID 了 。 同 样 ，EXIT 的 
匹配 代码 块 也 变 得 更 加 智能 了 。 下 面 是 这 个 块 里 新 加 的 一 行 代码 : 

self() ! new, 

这 里 我 们 把 消息 发 给 目 己 ， 新 产生 并 注册 了 一 把 枪 。 这 样 一 来 ， 这 游戏 玩 起 来 就 简单 多 了 了: 

2> Cc(doctor). 

{ok, doctor} 

3> Doc = spawn(fun doctor:1oop/0) . 

<0.43.0> 

4> revolver ! 1. 

xx @xception error: bad argument 


1n operator  !7/2 
called as revolver ! 1 

显然 ， 我 们 还 没有 创建 进程 ， 因 此 出 现 了 一 个 错误 。 现 在 我 们 创建 并 注册 进程 : 
5> Doc 1 new. 
Creating and monitoring process. 
new 
6> revolver ! 1. 
click 
1 
7> revolver ! 3. 














he shooter <0.47.0> died with reason {roulette,die,at,1{8,53,40}}. 
Restarting. 

8> Creating and monitoring process. 

8> revolver ! 4. 

click 

4 


这 里 我 们 是 在 Doctor 里 创建 的 revolver， 这 其 实 和 “医生 ”的 号 份 不 太 搭 。 还 有 一 点 和 前 
面 不 同 ， 我 们 击发 手枪 ,用 的 是 revo1ver 原 子 而 不 是 枪 的 PID 来 发 送 消 息 。 此 外 ， 可 以 看 一 下 行 
号 为 8 的 那 行 代 码 ， 我 们 实际 上 创建 并 注册 了 一 把 新 的 左轮 手枪 。 这 类 程序 的 整体 结构 通常 如 图 
6-2 所 示 ,“ 医 生 ” 在 这 里 扮演 了 比 “ 验 尸 官 ”更 为 主动 的 角色 。 

对 Erlang ， 我 们 不 过 晴 贬 点 水 一 般 浅 尝 因 止 。 但 我 希望 你 明白 ，Erlang 可 轻松 创建 比 过 去 健 
壮 得 多 的 并 发 系统 。 而 且 你 根本 看 不 见 多 少 错误 人 处理。 只 要 某 个 东西 一 月 沉 ， 它 就 会 启动 一 个 新 
的 。 写 个 监视 其 他 进程 的 监视 右 也 没什么 难度 。 实 际 上 ，Erlang 的 基础 库 拥 有 足够 的 工具 。 这 些 
工具 既 可 以 用 来 编写 监视 需 服 务 ， 也 可 以 是 出 现 致命 错误 时 自动 重启 的 “持久 ”进程 。 
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6.4.4 第 三 天 我 们 学 到 了 什么 


第 三 天 开始 , 你 对 Erlang 能 做 什么 这 一 点 有 了 和 更深 理 解 。 我们 一 上 来 就 学 到 了 三 种 并 发 原 语 : 
send 、receive 、spawn。 我 们 通过 编写 异步 版 本 的 翻译 程序 ， 展 示 了 基本 的 消息 传递 机 制 是 如 何 
工作 的 。 然 后 ,我 们 编写 了 一 个 人 简单 的 辅助 函数 ， 把 发 送 和 接收 封 准 在 一 起 ， 用 这 个 封装 后 的 发 
送 和 接收 来 模拟 远程 过 程 调 用 。 

接 下 来 ,我 们 通过 把 进程 链接 起 来 的 方式 ， 展 示 一 个 进程 终止 时 如 何 通知 另 一 进程 。 我 们 还 
学 会 了 用 另 一 进程 来 监控 某 个 进程 ,以 获得 更 好 的 可 靠 性 。 虽 然 我 们 采用 的 编程 思想 也 可 用 在 容 
错 系统 的 构建 当中 ， 但 我 们 这 里 的 系统 并 不 是 容错 系统 。Erlang 分 布 式 通信 的 运行 机 制 很 像 进 程 
间 通 信 。 我 们 可 以 链接 两 台 计 算 机 上 的 两 个 进程 ， 这样 备份 机 就 可 以 监视 主机 ， 并 在 主机 出 问题 
时 接管 任务 。 

现在 ,我 们 在 目 习 中 检验 一 下 学 到 的 内 容 。 


6.4.5 ”第 三 天 目 习 


F 面 的 习题 比较 简单 ， 我 会 补充 一 些 加 分 题 ， 给 你 的 自习 加 一 些 挑战 。 
开放 电信 了 平台 ( Open Telecom Platform，OTP ) 是 个 强大 的 软件 包 ， 你 可 以 用 它 所 提供 的 很 
多 工具 来 构建 一 个 分 布 式 的 并 发 服务 。 
找 









































口 可 以 在 进程 终止 时 重启 它 的 OTP 服 务 。 
口 构建 简单 的 OTP 服 务 器 的 文档 。 
做 
口 监视 translate_service， 并 在 它 终止 时 重启 它 。 
口 如 果 Doctor 进 程 终 止 ， 使 其 重 局 目 身 。 
口 写 一 个 监视 Doctor 监 视 融 的 监视 带 。 如 果 其 中 某 个 监视 锅 终 止 ， 则 重 局 它 。 


下 面 的 加 分 题 需要 你 稍 做 研究 方 可 完成 : 
DO 创建 一 个 基本 的 OTP 服 务 锅 ， 可 以 把 消息 记录 到 文件 中 。 


口 让 translate_service 跨 网 络 运行 。 


6.5” 趁 热 打铁 


本 章 一 开始 我 就 曾 说 过 ，Erlang 既 可 将 难事 化 匈 ， 也 可 将 吻 事 化 难 。 它 的 Prolog 风 格 语法 ， 
让 那些 习惯 了 一 系列 C 风 格 语言 的 程序 员 们 感到 不 太 目 在 。 同 时 ， 它 的 图 数 式 编程 范 型 也 市 来 了 
一 大 堆 难 题 。 

然而 ， 随 看 人 硬件 设计 不 断 更 新 发 展 ， 并 发 编程 日 趋 重要 ，Erlang 的 一 些 核心 功能 也 会 变 得 举 
足 轻 草 起 来 。 它 的 某 些 功能 顾 具 哲理 。 轻 量 级 进程 的 设计 思想 与 Java 的 线程 和 进程 模型 设计 是 背 
文 


道 而 驰 的 。“ 就 让 它 骨 当 ” 的 哲学 不 仅 极 大 简化 了 代码 ， 而 且 要 求 在 虚拟 机 层 提供 基本 支持 ， 这 
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在 其 他 系统 中 是 不 存在 的 。 下 面 ， 我 们 来 分 别 讨 论 Erlang 的 核心 优势 和 不 足 之 处 。 


6.5.1 核心 优势 


发 目 内 心地 说 ，Erlang 就 是 并 发 和 容错 的 代名词 。 因 为 处 理 硕 的 设计 者 想到 了 分 布 式 多 处 理 
器 方法 ， 所 以 最 新 的 编程 技术 也 需要 提高 。Erlang 的 威力 主要 针对 这 一 代 程 序 员 将 要 面 对 的 最 重 
要 的 领域 。 

1. 动态 和 可 靠 性 

首先 ，Erlang 是 为 可 靠 性 而 生 的 。Erlang 的 核心 库 久 经 考验 ， 而 用 它 写 的 应 用 程序 在 当今 世 
界 上 也 属于 最 可 徘 和 最 好 用 的 一 类 。 令 人 印象 最 为 深刻 的 是 ，Erlang 的 设计 者 并 没有 为 了 获得 这 
种 可 徘 性 而 牺牲 挥 使 Erlang 如 此 高 效 的 动态 类 型 策略 。Erlang 依 徘 的 不 是 编译 人 大 所 提供 的 人 工 的 
“安全 网 ”， 而 是 链接 并 发 进程 的 能 力 ， 这 样 既 可 徘 叉 简单。 我 十 分 惊叹 于 Erlang 没 有 用 到 操作 系 
统 的 那些 整 脚 技 术 ， 就 可 以 轻易 地 构建 可 靠 的 监视 需 。 

你 在 Erlang 中 发 现 的 那些 为 保证 可 靠 性 而 做 的 妥协 ， 在 我 看 来 也 非常 激动 人 心 和 独一无二 。 
拿 Java 语 言 和 虚拟 机 来 说 ， 它 没有 提供 一 组 正确 的 原 语 ， 因 此 无 法 达到 Erlang 的 那 种 性 能 和 可 第 
性 。 同 时 ，BEAM 上 的 库 也 体现 了 Erlang 的 可 靠 性 上 哲学， 所 以 用 它们 构建 可 徘 的 分 布 式 系 统 也 就 
容易 了 很 多 。 

2. 轻 量 级 、 无 共享 资源 的 进程 

Erlang 的 另 一 处 内 交点 是 其 底层 的 进程 模型 。Erlang 的 进程 是 轻 量 级 的 , 因此 Erlang 程 序 员 会 
经 常 使 用 它们 。Erlang 是 建立 在 强制 要 求 不 变性 的 哲学 之 上 的 ， 因 此 Erlang 程 序 员 构建 的 系统 从 
根本 上 就 不 太 可 能 因为 互相 冲突 而 产生 致命 错误 。Erlang 拥 有 消息 传递 范 型 和 原 语 ， 因 此 它 可 以 
轻易 地 写 出 带 有 一 定 的 分 离 性 的 应 用 程序 ， 而 这 在 其 他 面向 对 象 应 用 中 是 较为 罕见 的 。 

3. OTP 一 一 企业 级 的 库 

为 Erlang 是 在 电信 企业 中 成 长 起 来 的 语言 , 对 可 用 性 和 可 靠 性 都 有 很 高 要 求 , 所 以 可 以 说 ， 
它 在 这 个 领域 已 有 20 年 的 开发 经 验 。 这 个 领域 中 ， 最 主要 的 库 是 开放 电信 平台 ( Open Telecom 
Platform，OTP )。 你 可 以 找到 帮 你 构建 各 种 应 用 的 库 ， 包 括 处 在 监视 状态 下 的 持久 进程 、 访 问 数 
据 库 的 连接 、 分 布 式 应 用 等 。OTP 有 整套 的 Web 服 务 器 以 及 众多 工具 都 可 用 于 构建 电信 应 用 。 

这 些 库 特别 出 色 的 一 点 在 于 : 容错 性 、 可 扩展 性 、 事 务 完整 性 、 热 插 拔 性 , 全 都 是 内 置 特 性 。 
你 不 必 再 为 它们 操心 。 你 完全 可 以 利用 这 些 特性 构建 自己 的 服务 占 进 程 。 

4. 就 让 它 衣 溃 

在 Erlang 中 ， 处 理 并 行进 程 不 会 有 副作用 ， 这 是 “就 让 它 骨 溃 ” 策 略 带 来 的 结果 一 一 你 不 必 
理会 进程 为 什么 崩 演 ， 因 为 你 只 要 重启 它 就 好 。 这 是 一 种 函数 式 编程 模型 ，Erlang 的 分 布 式 策略 
也 由 此 得 到 了 增强 。 

和 本 书 其 他 语言 一 样 ，Erlang 也 并 非 昌 无 正 疫 ， 问 题 无 所 不 在 ， 只 是 问题 的 种 类 有 所 改变 而 
已 。 面 对 这 些 问题 ， 就 连 特工 Smith 都 无 法 做 到 尽善尽美 。 
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6.5.2 ”不足 之 处 


Erlang 的 根本 问题 是 用 户 群 太 小 , 这 源 于 它 根 深 带 固 的 小 众 博 言 定位 。 在 大 多 数 程 序 员 看 来 ， 
它 的 语法 很 难 称 得 上 平 吻 近 人 。 此 外 ，Erlang 的 晒 数 式 语 言 范 型 也 让 它 有 些 格格 不 入 ， 这 也 同样 
阻碍 了 它 获 得 广泛 应 用 ; 最 后 ， 迄 今 为 止 ， 最 好 的 Erlang 实 现 都 在 BEAM_ 上 ， 而 不 是 Java 虚 拟 机 
上 。 下 面 我 们 就 来 进一步 阐述 一 下 这 几 点 。 

1 于 法 

和 电影 一 样 ， 语 法 也 是 个 见仁见智 的 东西 。 除 此 之 外 ，Erlang 还 有 一 些 问题 ， 就 是 那些 不 刻 
意 挑 刺 儿 的 人 也 能 看 到 的 。 下 面 ， 我 们 就 来 看 看 其 中 的 两 个 问题 。 

有 一 件 事 很 有 趣 : Erlang 最 核心 的 优势 和 劣势 ， 都 源 于 它 以 Prolog 为 基础 。 对 于 大 多 数 编程 
者 来 说 ，Prolog 是 星 深 难 懂 的 ， 其 语法 顾 有 些 别扭 的 味道 。 如 有 果 从 其 他 语言 过 渡 到 Prolog， 一 点 
点 语法 糖 无 疑 对 降低 学 习 难 度 大 有 帮助 。 

本 蔓 ， 我 提 到 了 if 和 case 语 法 结构 的 问题 。 它 们 的 语法 规则 是 合乎 逻辑 的 一 一 在 语句 之 间 
用 分 陋 符 分 开 。 然 而 ， 如 果 不 改 变 标 点 ， 你 就 无 法 改变 case、if 或 receive 块 的 顺序 ， 所 以 说 这 
规则 又 不 太 实 用 。 这 些 语法 上 的 限制 是 没有 必要 的 。Erlang 还 有 一 些 别 的 古怪 之 处 ， 比 如 说 ， 符 
合 条 件 的 数字 数组 会 显示 为 字符 串 。 寿 除 掉 这 些 问题 ，Erlang 必 将 大 有 长 进 。 

2. 整合 

刚才 说 过 ，Prolog 的 传承 者 这 一 身份 , 既 会 市 给 Erlang 优 点 ,也 会 市 来 缺点 。 同 样 ， 不 在 JVM 
上 实现 Erlang 也 是 一 把 双 丸 剑 。 最 近 ， 一 个 基于 JVM 的 虚拟 机 Erjang 取 得 了 一 定 进展 ， 但 仍 未 达 
到 JVM 上 的 最 佳 选 择 的 水 准 。 的 确 ，JVM 是 有 些 拖泥带水 ， 比 如 无 法 满足 Erlang 所 要 求 的 进程 和 
线程 模型 等 ， 但 在 JVM 上 实现 也 有 诸多 好 处 ， 包 括 各 种 各 样 的 Java 库 以 及 数 以 十 万 计 的 可 用 部 署 
服务 硕 等 宝 贯 财 亩 。 



































6.5.3 ”最 后 思考 


编程 语言 的 成 功 是 无 法 预测 的 。Erlang 在 市 场 推广 上 面临 者 严峻 挑战 ， 吸 引 Java 程 序 员 过 来 
使 用 Lisp 风 格 的 编程 范 型 和 Prolog 风 格 的 语法 绝 非 易 事 。 看 样子 ，Erlang 下 在 慢 慢 地 积蓄 力量 ， 
为 它 能 在 正确 的 时 间 和 正确 的 地 点 解决 正确 的 问题 。 在 这 场 Neo 与 特工 Smith 之 间 的 战斗 中 , 我 认 
为 特工 Smith 成 功 或 失败 的 几率 各 占 一 半 。 
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Clojure 





做 或 不 做 ,不 要 尝试 。 





Yoda ( 尤 达 大 师 ) 


Clojure 是 JVM 上 的 Lisp 实 现 。Lisp 复 林强 大 ， 是 计算 机 领域 里 最 早 和 最 新 的 编程 语言 之 一 。 许 
多 Lisp 方 言 都 曾 尝 试 挤 进 主流 语言 的 行列 ， 却 都 无 功 而 返 。 即 便 是 对 今天 的 开发 者 而 言 ， 其 语法 和 
编程 模型 也 有 些 难 以 消化 。 即 便 如 此 ，Lisp 的 特质 仍 叫 人 禁不住 去 重 温 ， 去 回味 ， 新 的 方言 层 出 不 
穷 ， 一 些 编程 领域 最 好 的 院 校 也 用 Lisp 语 言 来 帮助 学 生 们 塑造 创新 、 开 放 的 思维 方式 。 

从 很 多 方面 来 看 ，Clojure 就 像 是 窒 乔 的 功夫 大 师 ， 神 隐 山 脉 的 先知 或 是 高 深 如 测 的 绝地 师 
父 。 想 想 Yoda。 在 《星球 大 战 系列 之 五 : 帝国 反击 战 》" 中 ，Yoda 是 一 位 小 巧 、 可 爱 的 配角 。 他 
总 是 使 用 “ 倒 装 ”语序 说 话 ， 但 却 意味 高 深 ”， 就 像 Lisp 所 使 用 的 前 级 表示 法 ( 相信 过 一 会 儿 你 
就 会 明白 )。 他 小 巧 到 难以 状 别 ， 就 像 Lisp 的 语法 不 过 是 一 些 括 号 和 符号 。 但 是 和 Yoda 一 样 ， 它 
绝 非 看 上 去 那么 简单 。Yoda 和 Lisp 年 岁 都 很 局 ， 拥 有 的 智 意 〈 例 如 开头 的 引 语 ) 经 过 时 间 麻 侦 
与 烈火 考验 。Lisp 安 和 高 阶 编程 单元 如 同 Yoda 掌 握 的 内 在 原 力 ， 看 似 无 人 能 掌控 。 从 许多 角度 
讲 ， Lisp 开 创 了 一 切 。 在 深入 Clojure 之 前 ， 让 我 们 先 来 谈 谈 Lisp， 然 后 再 来 了 解 Clojure 的 激动 
人 心 之 处 。 






































7.1 Clojure 入 门 


说 白 了 ，Clojure 就 是 一 种 Lisp 方 言 , 受 Lisp 语 言 限制 , 但 也 拥有 Lisp 强 大 的 力量 ， 了 解 Clojure 
要 从 了 解 Lisp 开 始 O 





7.1.1 一 切 皆 Lisp 
Lisp 是 继 Fortran 之 后 最 古老 的 、 商 业 上 依然 活跃 的 编程 语言 。 它 是 图 数 式 语言 ， 但 不 是 纯 因 





(D Star Wars Episode 大 THe Empire Strikes Back。 导 演 : George Lucas ( 1980 年 )。 发 行商 加 利 福 尼 亚 州 比 佛 利 山 20 世 纪 
福 斯 影片 公司 ( 2004 年 ) ( 译 者 注 : 这 部 电影 中 译名 为 《星球 大 战 V: 帝国 反击 战 》 是 一 部 科 约 电影 。 片 中 的 Yoda 
是 德高望重 的 “绝地 ”议会 长 老 。 九 百 岁 的 Yoda 授 徒长 达 8 个 多 世纪 , 是 一 位 具有 强大 “ 原 力 ”与 高 清 品 德 的 大 师 。) 

(2 Yoda 的 母语 可 能 是 一 种 具有 “ 宾 、 主 、 谓 ”结构 的 语言 ， 所 以 他 和 常常 会 这 样 说 :“TakeyoutohimIwil”(〈 带 你 去 
见 他 ， 我 会 。) 
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= Lisp 是 LISt Processing 的 缩写 ， 很 快 你 就 会 明日 这 个 名 字 的 由 来 。 Lisp 拥 有 一 些 了 FE 第 有 
趣 的 特性 。 

口 Lisp 是 一 种 列表 语言 。 哺 数 调 用 时 ， 取 列表 第 一 个 元 双 作 也 数 ， 列 表 其 余 元 素 作 参数 ; 

口 Lisp 使 用 自 有 数据 结构 表示 代码 。 一 些 Lisp 妃 随 者 称 之 为 数据 即 代 码 ( data as code )。 

结合 这 两 种 特性 , 所 得 到 是 一 种 特别 适合 元 编程 的 语言 。 可 以 把 代码 组 织 成 像 类 里 的 方法 一 
样 。 再 用 这 些 对 象 构成 树 ， 就 能 得 到 一 个 基本 的 对 象 模 型 。 也 可 以 构造 一 个 基于 原型 的 代码 组 织 
结构 , 其 中 为 数据 和 行为 预 留 下 扩展 槽 ,还 可 以 构造 出 一 个 纯 函 数 式 实现 。 正 是 这 种 灵活 性 让 Lisp 
几乎 能 文 持 任 何 编程 范 型 。 

在 《墨客 与 画家 》 一 书 中 ，Paul Graham 记 载 了 一 个 小 团队 用 Lisp 及 其 强大 的 编程 模型 打败 大 
公司 的 故事 。 他 们 相信 Lisp 提 供 了 极为 显著 的 编程 优势 。 实 际 上 ， 与 大 公司 相 比 ， 他 们 更 关注 在 
招聘 启事 中 对 Lisp 和 其 他 更 高 级 编程 语言 提出 要 求 的 那些 初创 公司 。™ 

日 前 最 主要 的 Lisp 方 言 是 Common Lisp 和 Scheme。Scheme 和 Clojure 都 来 自 lisp-1 方 言 ， 而 
Common Lisp 来 自 lisp-2 方 言 。 这 两 大 家 族 之 间 主 要 的 区 别 在 于 命名 空间 的 工作 方式 。Common 
Lisp 用 不 同 的 命名 空间 区 分 也 数 和 变量 ，Scheme 则 不 区 分 。 讲 完了 Lisp 这 边 , 再 来 讲 讲 Java 这 边 。 

















1.1.2 JVM 


每 一 种 Lisp 方 言 都 有 其 迎合 的 群体 。 对 Clojure 而 言 ， 最 重要 的 特征 之 一 就 是 JVM。 看 看 Scala 
就 能 明白 ， 拥 有 市 场 上 非常 成 功 的 部 署 平台 可 以 带 来 完全 不 同 的 效果 。 你 不 必 为 了 使 用 Clojure 
而 癌 运 维 人 员 推 销 Clojure 服 务 右 。 尺 管 语 言 本 里 相对 较 新 ,但 却 可 以 利用 成 百 上 千 的 Java 类 库 来 
满足 你 的 任何 需要 。 

在 本 章 中 ,你 将 会 看 到 各 种 证 明 JVM 存 在 的 证 据 ， 在 调用 中 、 在 类 库 中 、 在 我 们 创建 的 构件 
中 。 另 外 你 还 有 机 会 看 到 其 灵活 自由 的 一 面 。Clojure 是 函数 式 的 ， 因 此 可 以 在 代码 中 应 用 更 高 级 
的 理念 。Clojure 是 动态 类 型 的 ， 因 此 代码 可 以 写 得 更 简练 ,更 易于 阅读 ,编写 时 乐趣 无 穷 。 除 此 
以 外 ，Clojure 还 拥有 Lisp 非 凡 的 表现 力 。 

Clojure 和 Java 谁 也 离 不 开 谁 。Lisp 需 要 Java 虚 拟 机 所 能 提供 的 市 场 份额 , 而 Java 社 区 也 需要 注 
入 新 的 活力 。 


7.1.3 为 并 发 更 新 


构成 Clojure 方 程式 的 最 后 一 块 就 是 类 库 集 合 。Clojure 是 一 门 旺 数 式 霹 言 , 强调 晒 数 无 副作用 。 
但 当 你 一 定 要 使 用 可 变 状态 时 ， 语 言 文 持 的 大 量 概念 也 会 提供 帮助 。 事 务 内 存 〈transactional 
memory ) 工作 起 来 类 似 事务 型 数据 库 ， 并 提供 安全 、 并 发 的 内 存 访 问 。 人 代理 (agent ) 文 持 对 可 
变 资 源 访 问 的 封 竣 。 我 们 会 在 第 三 天 解释 这 些 内 容 。 

你 是 不 是 已 经 等 不 及 了 ? 让 我 们 赶快 开始 吧 。 









































(D 《黑客 与 画家 》 中 文 版 第 179 页 。 该 书 由 人 民 邮 电 出 版 社 出 版 。 
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7.2 第 一 天 : 训练 Luke 


在 《星球 大 战 》 中 ， 学徒 Luke ( 卢 克 ) 跟随 Yoda 按 绝地 武士 的 方式 进行 高 阶 训 练 。 他 已 经 开 
始 在 男 一 位 大 师 的 指引 下 投入 训练 。 像 Luke 一 样 ， 其实 你 也 早已 开始 也 数 式 语 言 的 练习 。 你 使 用 
过 Ruby 的 财 包 ， 并 完成 了 Scala 和 Erlang 的 高 阶 图 数 和 学业。 本章 中 , 你 将 学 习 如 何在 Clojure 里 应 用 
这 些 概 念 。 

请 访问 Clojure 网 站 ， 网 址 为 http:/www.assembla.com/wiki/show/clojure/Getting Started。 按 照 
上 面 的 指示 在 你 的 平台 上 安装 Clojure 并 准备 好 你 喜欢 的 开发 环境 。 我 使 用 的 是 Clojure 1.2 的 
prerelease 版 本 ， 等 你 拿 到 此 书 时 这 个 版 本 应 该 已 经 是 稳定 版 了 。" 你 可 能 需要 首先 安装 Java 平 台 ， 
但 如 今 的 多 数 操作 系统 都 已 预 装 了 Java。 我 使 用 leiningen2 工具 来 管理 Clojure 项 目 和 Java 配 置 。 它 
能 帮助 我 方便 地 构建 项 目 ， 而 且 还 不 用 关心 像 classpath 这 样 与 Java 相 关 的 细节 。leiningen 安 装 
好 后 ， 就 可 以 创建 新 项 目 了 : 


batate$ lein new seven-1anguages 
Created new project in: seven-languages 
batate$ cd seven-languages/ 
seven-1languages batates$ 


接着 ， 可 以 启动 Clojure 的 控制 台 ， 也 称 之 为 repl: 
seven-languages batate$ lein repl 

Copying 2 files to /Users/batate/lein/seven-languages/1ib 
USer=> 


ee 然后 束 可 以 开始 编程 了 了。 在 后 侣 ，leiningen 目 动 完 成 了 依赖 项 的 安装 ， 然 后 调用 Java 并 传人 
Clojure 的 jar 包 和 一 些 参数 。 你 也 许 需 要 通过 其 他 方式 来 局 动 控制 合 。 从 现在 开始 , 我 只 会 告诉 你 
启动 repl (read-eval-print loop， 谍 取 - 求 值 - 打印 循环 )。 

完成 了 上 面 的 工作 后 , 你 会 看 到 一 个 初始 的 控制 台 命 令 行 窗口 。 当 我 要 求 你 执行 代码 时 ， 可 
以 使 用 这 个 控制 台 ， 或 者 也 可 以 使 用 任何 文 持 Clojure 的 IDE 和 编辑 融 。 

下 面 来 写 点 儿 代 三 : 

user=> (printiln “Give me some Clojure!") 

Give me some Clojure! 

nil 

虽 ， 这 说 明 控 制 侣 工作 正 稼 。 在 Clojure 中 , 任何 范 数 调 用 者 需要 用 括号 将 其 包 起 来 。 括 号 里 
的 第 一 个 元 素 是 函数 名 , 剩 下 的 是 参数 。 你 也 可 以 诅 套 调用 函数 。 让 我 们 举 一 些 数学 计算 的 例子 
来 演示 如 何 调 用 函数 。 



































7.2.1 调用 基本 函数 


USer=> (- 1) 


Oz 翻译 本 章 时 ，Clojure 版 本 号 已 经 升级 到 1.3。 
@) http://github.com/technomancy/leiningen。 一 一 原 书 注 
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-1] 

user=> (+ 1 1) 

2 

user=> (* 10 10) 

100 

这 些 只 是 最 基本 的 数学 计算 。 除 法 会 更 有 趣 一 点 儿 : 
user=> (/ 1 3) 

1/3 

USer=> (/ 2 4) 

1/2 

user=> (/ 2.0 4) 

Us 

user=> (class (/ 1 3)) 
clojure.1lang.Ratio 


Clojure 中 有 一 个 基本 数据 类 型 叫做 ratio。 这 是 一 个 很 棒 的 特性 ， 因 为 它 支 持 延 迟 计 算 以 避 
免 精 度 损失 。 如 果 有 和 需要， 也 可 以 用 浮 点 数 进行 运算 。 可 以 像 下 面 这 样 计算 余数 : 


user=> (mod 5 4) 
1 


mod 是 取 模 操作 符 的 简称 。 这 种 表示 法 称 为 前 组 表示 法 。 之 前 学 过 的 各 种 编程 语言 所 支持 的 
是 中 级 表示 法 ， 即 操作 符 放 在 两 个 操作 数 的 中 间 ， 例 如 4 + 1 一 2。 许 多 人 更 豆 欢 中 级 表示 法 ， 
为 它 符 合 我 们 的 使 用 习惯 。 我 们 早已 习惯 于 使 用 这 种 方式 来 表示 数学 算式 。 经 过 前 面 的 热 吴 , 你 
应 该 已 经 逐渐 适应 用 前 缀 表示 法 书写 的 代码 行 了 。 尽 管用 这 种 方式 做 数学 运算 略 显 全 措 , 但 它 是 
可 行 的 。 市 括号 的 前 级 表示 法 确 有 它 的 优势 。 考 量 下 面 的 表达 式 : 


user=> (/ (/ 12 2) (/ 6 2)) 
2 


这 里 不 存在 收 义 。Clojure 会 按照 括 写 的 顺序 来 执行 语句 。 青 来 看 看 下 面 这 个 表达 式 : 


USer=> (+ 2 2 2 2) 
8 


你 也 可 以 往 算式 上 添加 元 素 。 甚 至 在 做 减法 和 除法 时 也 能 写成 这 种 风格 : 

user=> (- 8 1 2) 

5 

USer=> (/ 8 2 2) 

2 

用 传统 的 中 弘法 表示 上 面 的 表达 式 ， 要 写成 (8 - 1) - 2 和 (8 / 2) / 2。Clojure 中 每 次 只 
使 用 两 个 操作 数 的 等 价 形式 为 : (- (- 8 1) 2) 和 (6/ (/ 8 2) 2)。 使 用 这 种 简单 的 操作 符 求 值 
还 能 得 到 一 些 令 人 惊讶 的 强大 效果 : 

USer=> (< 1 2 3) 

true 

USer=> (< 132 4) 

false 

这 太 棒 了 .对 任意 数量 的 参数 所 组 成 的 列表 , 只 要 用 一 个 简单 的 操作 符 就 能 知道 它 是 否 已 排序 。 

除了 前 级 表示 法 和 新 新 的 多 参数 列表 (multiple parameter lists ) 外 ，Clojure 的 语法 其 实 特别 
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简单 。 现 在 让 我 们 再 看 看 类 型 系统 ， 探 究 一 下 强 类 型 和 类 型 转换 : 
USer=> (+ 3.0 5) 
8.0 
USer=> (+ 3 5.0) 
8.0 


Clojure 替 我 们 完成 了 类 型 转换 的 工作 。 一般 地 ，Clojure 支 持 强 类 型 和 动态 类 型 。 让 我 们 再 进 
一 步 ， 看 看 Clojure 中 的 一 些 基 本 构成 部 分 ， 即 形式 ”( form )。 

可 以 把 形式 看 作 是 语法 的 一 部 分 。 当 Clojure 解 析 代 码 时 , 它 会 将 代码 分 解 成 很 多 份 称 为 形式 
的 片段 。 然 后 Clojure 会 编译 或 者 解释 执行 代码 。 不 用 区 分 代码 和 数据 ， 因 为 在 Lisp 中 这 二 者 是 同 
一 种 东西 , 是 等 价 的 。 在 本 和 草 中 , 你 将 会 见 到 布尔 值 、 字 符 、 字 符 串 、 集 合 (set ) 映射 表 (map )， 
以 及 回 量 〈vector )， 这 些 都 是 形式 。 


7.2.2 字符 串 和 字符 


前 面 简单 介绍 过 字符 串 ， 这 一 小 节 我 们 再 来 深入 了 解 一 下 。Clojure 中 字符 串 由 双 引 号 括 起 
并 使 用 C 语 言 风格 的 转 义 字符 ， 和 Ruby 一 样 : 
user=> (println "master yoda\nluke skywalker\ndarth vader") 
master yoda 
luke skywalker 
darth vader 
n1il 
这 没有 什么 特殊 之 处 。 另 外 提 一 下 ， 至 今 为 止 ， 我 们 使 用 print1n 时 都 只 传 了 一 个 参数 ， 其 
实 这 个 因数 也 适用 于 传人 零 或 多 个 参数 的 情况 , 如 果 没 有 指定 参数 则 打印 一 个 空 行 , 传递 多 个 参 
数 则 将 多 个 值 连 起 来 打印 。 
在 Clojure 中 ， 可 以 用 str 据 数 将 其 他 类 型 的 数据 转换 成 字符 串 . 


USer=> (str 1) 























来 


3 

















下 
如 果 目 标 是 Java 类 型 ，str 会 调用 底层 的 toString 方 法 。 该 函数 可 接受 多 个 参数 , 如 下 所 示 : 
user=> (str "yoda, " "luke, " "darth") 


"yoda, luke, darth" 
这 样 Clojure 开 发 者 可 以 用 str 了 号 数 来 连接 字符 串 。 特 别 方便 的 是 ， 它 还 能 拼接 非 学 符 串 项 : 
USer=> (str "one: ” 1 " two: ”2) 
"one: 1 two: 2" 
要 在 双 引 号 之 外 表示 一 个 字符 需 用 字符 \， 像 这 样 : 
USer=> \a 
Na 
也 能 用 str 函 数 拼接 字符 串 : 
user=> (str \f NO \r \c \e) 
"horee 





GD 参考 《实用 Common Lisp 编 程 》 一 书 中 的 Lisp 形 式 。 该 书 由 人 民 邮 电 出 版 社 出 版 。 


图 灵 社 区 会 员 LorraineMei(lorrainemei@gmail.com) 专 享 尊重 版 权 


7.2 第 一 天 : 训练 Luke 175 


我 们 来 作 个 比较 : 
User=> (= "a” \a) 
false 





可 以 看 出 字符 并 不 是 长 度 为 1 的 字符 串 。 
USer=> (= (str \a) "a') 
true 


不 过 可 以 将 一 组 字符 转换 成 子 特 串 。 有 关 字 符 串 的 讲解 已 经 足够 了 。 下面 我 们 来 说 说 布尔 表 


7.2.3 ”布尔 值 和 表达 式 


Clojure 支 持 强 类 型 和 动态 类 型 。 动 态 类 型 意味 着 类 型 在 运行 时 求 值 。 你 已 经 见 过 一 些 类 型 

















了 ， 现 在 我 们 再 来 探讨 一 下 这 个 话题 。 布 尔 值 是 表达 式 求 值 的 结 
USer=> (= 1 1.0) 
true 
user=> (= 1 2) 
false 
user=> (< 1 2) 
true 








和 本 书 中 提 到 的 其 他 编程 语言 一 样 ，true 是 一 个 特写， 但 它 也 是 别 的 东西 。Clojure 中 的 类 
型 与 底层 Java 类 型 系统 是 统一 的 ， 可 以 用 class 函 数 获 得 其 底层 类 ， 这 是 布尔 值 的 类 : 

user=> (class true) 

Java.1ang.Boolean 

user=> (class (= 1 1)) 

Java.1ang.Boolean 

这 里 可 以 营 见 JVM 的 踊 迹 。 随 着 学 习 的 隶 渐 深入 ， 这 种 类 型 策略 的 便捷 性 会 逐渐 显现 。 可 以 
在 很 多 表达 式 中 使 用 布尔 值 的 结果 ， 下 面 是 一 个 简单 的 if 语句 : 

user=> (if true (println "True it 1s.")) 

True 1t 1s. 

nil 

user=> (if (> 1 2) (printiln "True it 1s.")) 

nil 

与 Ilo 类 似 , 我 们 把 代码 作为 第 二 个 参数 传递 给 if。 特 别 方便 的 是 , Lisp 人 允许 把 数据 当 作 代码 。 
这 样 我 们 可 以 把 代码 分 成 多 行 ， 让 它 看 起 来 更 深 亮 些 : 

user=> (if (< 1 2) 

(println "False 1t 1s not.")) 

False it 1s not. 

n1il 
还 能 添加 一 个 相当 于 else 分 支 的 部 分 作为 第 三 个 参数 

user=> (if false (println "true”) (println "false")) 


false 
nil 
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现在 ， 让 我 们 看 看 还 有 什么 能 用 作 布 尔 值 。 首 先 ， 在 Clojure 中 什么 会 取 值 ni1 呢 ? 

user=> (first ()) 

n1l 

呵 哈 ， 韭 常人 简单 。 这 个 符号 就 叫 ni1。 

user=> (if 0 (printin “true")) 

true 

nil 

user=> (if nil (printin "true")) 

nil 

user=> (if "" (println "true")) 

true 

nil 

0 和 "" 都 是 true,， 但 ni1 不 是 。 男 外 一 些 布尔 表达 式 会 在 需要 时 册子 以 介绍 。 接 下 来 ， 让 我 
们 看 看 更 复杂 的 数据 结构 。 


7.2.4 ， 列表、 映射 表 、 集 合 以 及 回 量 


在 所 月 数 式 语言 中 ， 诸 如 列表 ( list )、 元 组 ( tuple ) 这 样 的 核心 数据 结构 往往 承担 着 更 繁 
重 的 工作 。Clojure 中 ， 类 似 的 三 员 大 将 分 别 是 列表 、 有 映射 表 ( map ) 和 问 量 ( vector )。 我们 先 从 
你 最 熟悉 的 集合 类 型 开始 ， 那 就 是 列表 。 

1. 列表 

列表 是 元 素 的 有 序 集合 。 这 些 元 素 可 以 是 任何 东西 , 不 过 在 Clojure 中 , 习惯 将 列表 用 作 代 码 ， 
把 向 量 用 作 数 据 。 为 了 避免 产生 困惑 ,我 会 简单 浏览 一 下 列表 作为 数据 的 例子 。 由 于 列表 是 被 当 
作 肯 数 进行 求 值 的 ， 因 此 不 能 这 人 么 写 : 

user=> (1 2 3) 


Java.1lang.ClassCastException: java.lang.Integer 
cannot be cast to clojure.lang.IFn (NO SOURCE_ FILE:0) 


如 果 确 实 想 要 创建 一 个 由 1、2 和 3 组 成 的 列表 ， 下 面 两 种 方式 任 选 其 一 : 

user=> (list 1 2 3) 

(1 2 3) 

USer=> '(1 2 3) 

(1 2 3) 

接着 就 可 以 照例 操作 列表 了 。 上 面 第 二 个 形式 叫做 quoting (引用 )。 列 表 最 主要 的 操作 有 四 
个 , 分 别 是 first ( 头 元 素 )、rest ( 除 头 部 以 外 的 列表 )、1ast (最 后 一 个 元 素 ) 以 及 cons (给 
定 一 个 头 元 素 和 尾部 ， 创 建 一 个 新 列表 ): 

User=> (first '(:r2d2 :Cc3po)) 

F202 

user=> (last '(:r2d2 :c3p0o)) 

:C3po 

User=> (rest '(:r2d2 :c3po)) 

(:c3po) 
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user=> (cons :battle-droid '(:r2d2 :c3po)) 
(:battle-droid :r2d2 :c3po) 


当然 可 以 和 高 阶 函 数组 合 使 用 它们 ， 不 过 在 遇 到 序列 ( sequence ) 时 才 会 用 到 这 种 方式 。 

证 我们 来 看 看 列表 的 “兄弟 ” 回 量 。 

2. 问 量 

和 列表 一 样 , 丫 量 也 是 元 又 的 有 序 集合 。 问 量 是 为 随机 访问 优化 的 。 用 方 括 号 括 起 来 , 像 这 样 : 


user=> [:hutt :wookie :ewok] 

[:hutt :wookie :ewok] 

列表 作 代 码 ， 回 量 作 数据 。 可 以 像 下 面 这 样 获取 各 种 元 素 : 
user=> (first [:hutt :wookie :ewokj]) 
:hutt 

user=> (nth [:hutt :wookie :ewok] 2) 
: ewok 

user=> (nth [:hutt :wookie :ewok] 0) 
:hutt 

user=> (last [:hutt :wookie :ewok|]) 
: ewok 

user=> ([:hutt :wookie :ewok] 2) 

: ewok 


， 问 量 也 是 函数 ， 取 下 标 为 参数 。 可 以 合并 两 个 回 量 ， 像 这 样 : 


user=> (concat [:darth-vader] [:darth-maul]) 
(:darth-vader :darth-maul) 


你 可 能 注意 到 repl 打 印 出 来 的 不 是 癌 量 而 是 列表 。 许 多 返回 集合 的 函数 都 使 用 了 称 为 序列 的 
ey 我 们 会 在 第 二 天 里 进一步 学 习 它 们 。 现在 , 只 要 明日 Clojure 返 回 的 是 序列 并 且 在 repl 
中 以 列表 的 形式 展现 就 可 以 卫 。 

当然 Clojure 也 允许 从 回 量 中 获取 头 元 系 和 尾部 : 

user=> (first [:hutt :wookie :ewokj]) 

:hutt 


user=> (rest [:hutt :wookie :ewok]) 
(:wookie :ewok) 


在 进行 模式 匹配 时 这 些 特性 都 用 得 上 。 列表 和 问 量 都 是 有 序 集 合 。 接 下 来 让 我 们 看 看 无 序 集 
合 ，set 和 映射 表 。 

3. Set” 

set (集合 ) 是 元 素 的 无 序 集合 。 其 实 set 有 一 个 固定 的 顺序 ， 不 过 与 实现 方式 相关 ， 因 此 不 
能 依赖 这 个 顺序 。set 用 #{} 包 起 来 ， 像 这 样 : 


USer=> #{:x-wing :y-wing :tie-fighter} 
#{:x-wing :y-wing :tie-fighter} 


可 以 把 它们 赋 给 变量 名 spacecraft 再 来 操作 它们 : 





于 






































3 

















GD 由 于 set 的 常见 翻译 “集合 ”与 collection 冲 突 ， 为 了 避免 混淆 ， 在 这 一 节 里 ,我们 直接 用 set 而 不 做 翻译 。 除 此 外 的 
译文 中 ， 如 不 做 特殊 说 明 ， 集 合 一 词 都 是 指 collection。 
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user=> (def spacecraft #{:x-wing :y-wing :tie-fighter}) 
#"'Uuser/spacecraft 

user=> spacecraft 

#{:x-wing :y-wing :tie-fighter} 

User=> (count spacecraft) 

3 

user=> (sort spacecraft) 

(:tie-fighter :x-wing :y-wing) 

也 可 以 创建 一 个 排序 set， 它 以 任意 次 序 接受 元 率 ， 并 按照 一 个 固定 的 次 序 返回 元 系 : 
USer=> (Sorted-set 2 3 1) 

#{1 2 3} 


可 以 合并 两 个 set， 像 这 样 : 
user=> (clojure.set/union #L:Sskywalker #{:vader}) 
#{:skywalker :vader} 


求 差 集 : 

(clojure.set/difference #{1 2 3} #{2}) 

在 继续 下 一 部 分 之 前 ， 还 有 最 后 一 个 超 便利 的 小 妙招 透露 给 你 。 其 实 set 也 是 函数 。 比 如 
#{:jar-jar，:chewbacca}， 它 不 仪 是 一 个 set， 同 时 还 是 一 个 涵 数 ， 可 用 来 判别 元 素 是 否 属于 
该 set 的 成 员 ， 例 如 : 

USer=> (#{:Jar-Jar :chewbacca} :chewbacca) 

: Chewbacca 

USer=> (#{:jJar-jJar :chewbacca} :1uke) 

nil 

当 把 set 当 作 阴 数 使 用 时 ， 如 有 果 参 数 属于 set 则 返回 参数 。 到 此 已 经 介绍 完了 有 关 set 的 基本 知 
识 。 接 下 来 看 看 映射 表 。 

4. 映射 表 

映射 表 就 是 键 什 对。 在 Clojure 中 ， 用 大 括 扣 来 表示 映射 表 ， 像 这 样 : 


USer=> {:chewie :wookie :lea :human} 
{:chewie :wookie, :lea :human} 


这 就 是 映射 表 〈 即 键 值 对 )， 它 的 问题 很 难看 清楚 ， 即 使 号 了 奇数 个 键 值 也 不 太 容 易 发 现 ， 
从 而 导致 错误 : 


user=> {:Jabba :hut :han} 
java.1lang.ArrayIndexOutOfBoundsException: 3 


Clojure 通 过 使 用 逗号 作为 空白 符 来 解决 这 个 问题 ， 像 这 样 : 
user=> {:darth-vader "ob1i wan”", :luke “yoda 
{:darth-vader “obi wan”", :luke "yoda"} 


以 冒号 :开始 的 词 是 关键 词 , 类 似 Ruby 中 的 符号 或 者 Prolog 或 Erlang 中 的 原子 。 类 似 命 名 事物 
的 形式 在 Clojure 里 有 两 种 : 关键 词 和 符号 。 人 符号 指向 其 他 东西 ， 而 关键 词 指 癌 目 身 。true 和 map 
就 是 符号 。 可 以 参照 在 Erlang 中 使 用 原子 的 方法 ， 使 用 关键 词 去 命名 这 类 实体 ， 例 如 映射 表 中 的 
属性 等 。 
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我 们 定义 一 个 叫 mentors 的 映射 表 : 


user=> (def mentors {:darth-vader "obi wan”", :luke "yoda"}) 
# USser/mentors 

User=> mentors 

{:darth-vader “ob1 wan”", :luke “yoda 


可 以 用 键 获 取 对 应 的 值 : 


USer=> (mentors :luke) 
"yoda" 


映射 表 本 身 也 是 困 效 。 关 键 词 同样 也 是 困 效 。 


user=> (:1uUKe mentors) 
"yoda" 


国 数 :1uke 的 作用 是 在 映射 表 中 查找 上 自身。 虽然 看 起 来 有 点 儿 怪 , 但 却 很 实用 。 和 Ruby 一 样 ， 
在 Clojure 中 可 以 使 用 任何 数据 类 型 作为 键 或 者 值 。 可 以 用 merge 函 数 合 并 两 个 映射 表 : 

User=> (merge {:y-wing 2, :x-wing 4} {:tie-fighter 2}) 

{:tie-fighter 2, :y-wing 2, :x-wing 4} 

对 于 一 个 散 列 值 同时 出 现在 两 个 映射 表 中 的 情况 ， 还 可 以 声明 一 个 操作 符 : 

user=> (merge-with + {:y-wing 2, :x-wing 4} {:tie-fighter 2 :x-wing 3}) 

{:tie-fighter 2, :y-wing 2, :x-wing 7} 

本 例 中 ,使 用 操作 符 + 合并 了 与 x<-wing 相 关联 的 值 4 和 3。 给 定 一 个 关联 ， 还 可 以 通过 加 入 新 
键 值 对 来 创建 新 的 关联 ， 像 这 样 : 

USer=>(assoc {:one 1} :two 2) 

{:two 2,， :one 1} 


还 可 以 创建 排序 映射 表 。 排 序 映 射 表 以 任意 次 序 接收 条 目 ， 然 后 再 得 出 排 好 序 的 结果 ， 如 下 
所 不: 


user=> (sorted-map 1 :one, 3 :three, 2 :two) 
{1 :one, 2 :two, 3 :three} 


以 后 我 们 还 会 在 数据 中 逐渐 增加 更 多 的 结构 。 现 在, 让 我 们 把 日 光 转 移 到 用 于 增加 行为 的 形 
式 上 来 ， 聊 聊 函 数 。 

















7.2.5 定义 函数 


咀 数 是 所 有 Lisp 语 句 的 核心 。 用 defn 定 义 函 数 。 


user=> (defn force-it [|] (str "Use the force,™” "Luke."™)) 
#'User/force-it 


定义 函数 的 最 简 形 式 是 (defn [params] body) ,我 们 定义 了 一 个 没有 参数 的 孔 数 force-it。 
这 个 函数 只 是 把 两 个 字符 串 拼接 起 来 。 调 用 方式 和 其 他 任何 也 数 一 样 : 

user=> (force-1t) 

"Use the force,Luke.”" 


如 果 愿 意 的 话 ， 还 可 以 加 上 描述 函数 的 字符 串 : 
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user=> (defn force-it 
"The first function a young Jedi needs" 


[] 
(str "Use the force,™” "Luke")) 


然后 可 以 用 doc 浮 数 调 出 该 文档 : 


user=> (doc force-1t) 

user/force-it 

([]) 

The first function a young Jedi needs 
nil 
接 下 来 添加 参数 : 

user=> (defn force-it 
"The first function a young Jedi needs" 
[jedil] 
(str "Use the force,” jedi)) 

#'User/force-it 

user=> (force-it "Luke") 

"Use the force,Luke" 


顺便 提 一 下 ， 对 任何 提供 了 此 描述 文档 的 函数 虱 可 以 使 用 doc 功 能 


USer=> (doc str) 


clojure.core/str 

([ [x] [x & ys]) 
With no args, returns the empty string. With one arg x, returns 
x.toString(). (str nil) returns the empty string. With more than 
one arg, returns the concatenation of the str values of the args. 

nil 


我 们 已 经 定义 了 一 个 基本 函数 ， 接 下 来 看 看 参数 列表 。 
7.2.6 ” 绪 定 


和 我 们 所 见 过 的 其 他 编程 语言 一 样 ， 绪 定 是 指 按照 实 参 对 形 参 进行 赋值 的 过 程 。Clojure 特 点 
是 它 能 访问 到 实 参 中 的 任意 部 分 ， 并 能 把 这 部 分 作为 形 参 ， 这 个 功能 非常 有 用 。 举 个 例子 ， 比 如 
一 条 线段 ， 使 用 由 点 组 成 的 癌 量 表示 ， 像 下 面 这 样 : 
user=> (def line [[0 0] [10 20]]) 
#'UsSer/line 


user=> line 
[[0 0] [10 20jj 


可 以 构造 一 个 水 数 来 访问 线段 的 结尾 ， 像 下 面 这 样 : 


user=> (defn line-end [In] (last 1n)) 
# User/1ine-end 

user=> (line-end line) 

[10 20] 
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实际 上 可 能 并 不 需要 整 条 线段 。 如 果 形 参 能 绑 定 到 线段 的 第 二 个 元 兹 上 ， 那 就 更 好 了 。 在 
Clojure 中 这 很 容易 实现 : 

(defn line-end [[_ second]] second) 

# User/1ine-end 

user=> (line-end line) 

[10 20] 


这 里 用 到 一 个 概念 叫 解构 ( destructuring )。 即 将 一 个 数据 结构 拆 解 开 来 并 从 中 提取 出 需要 的 
部 分 。 下 面 我 们 来 详细 探讨 绑 定 。 对 于 [[_ second]] ， 外 层 方 括号 用 来 定义 形 参 向 量 ， 内 层 方 
括号 指明 将 要 绑 定 的 是 列表 的 元 素 还 是 回 量 的 元 素 。_ 和 second 分 别 表 示 单 独 的 元 素 ， 通 稼 
用 _ (下划线 ) 表示 被 忽略 的 参数 。 也 就 是 说 ， 这 个 函数 的 形 参 分 别 是 : _ 对 应 第 一 个 实 参 中 的 第 
一 个 元 素 ，second 对 应 第 一 个 实 参 中 的 第 二 个 元 素 。 

绑 定 可 以 衣 套 。 比 方 说 有 个 井 字 槛 (又 叫 一 字 横 ， tic-tac-toe ) 棋盘 。 现 在 我 们 想 返 回 棋盘 
正中 间 那 个 方 框 里 的 值 。 假 设 棋盘 表示 为 每 行 三 子 共 三 行 ， 像 下 面 这 样 : 

user=> (def board [[:x :0o :x] [:o :x :0] [:o :x :0]]) 

# USer/board 


这 样 一 来 ， 可 以 取出 第 二 行 的 第 二 个 元 素 ， 如 下 : 
user=> (defn center [[ [ cc ]  ]] ooc) 
# USer/center 


多 床 涡 1! 本 质 上 就 是 舱 套 使 用 同一 个 概念 。 让 我 们 分 解 开 来 看 看 。 对 于 [[_ [_ c -] -]] 
绑 定 ， 我 们 只 绑 定 了 一 个 形 参 到 实 参 上 , 即 [_ [_ c _] _]。 这 个 形 参 的 含义 是 ， 忽 略 第 一 个 
和 第 三 个 元 于， 二 者 分 别 对 应 棋盘 项 部 和 压 部 两 行 。 取 中 间 那 行 ， 即 [_ c _]。 我 们 期 望 看 到 为 
一 个 列表 ， 然 后 再 提取 出 列表 正中 间 的 一 个 元 系 : 


USer=> (center board) 
































:xX 

有 两 种 方法 来 简化 这 个 函数 。 首 先 ， 不 需要 列 出 目标 实 参 之 后 的 任何 通配符 实 参 : 

(defn center [[ [L cl]] cy) 

其 次 ， 解构 除了 可 以 发 生 在 参数 列表 中 ， 还 可 以 发 生 在 let 语 句 中 。 对 任何 Lisp， 使 用 1et 
语句 都 能 将 一 个 变量 绑 定 到 一 个 值 上 。 因 而 可 以 利用 1et 函 数 对 center 滑 数 的 调用 方 隐藏 解构 : 


(defn center [board 
(let [[ L cj board] c)) 


et 因数 需要 两 个 参数 。 第 一 个 参数 是 一 个 同 量 ， 包 含 需要 进行 绑 定 的 符号 ([[- [_cj]])， 
跟 上 想 要 绑 定 的 值 (board )。 第 二 个 参数 可 以 是 将 使 用 值 (c ) 的 表达 式 (我们 只 是 返回 c )。 两 
种 形式 神 能 产生 等 价 的 结 末 。 采 用 哪 种 形式 完全 取决 于 要 在 哪里 实现 解构 。 我 会 回 你 展示 一 系列 
使 用 1et 函 数 的 简短 样 例 ， 而 这 些 例 子 同样 可 以 在 参数 列表 中 使 用 。 

解构 映射 表 : 


User=> (def person {:name “Jabba” :profession "Gangster"}) 
#'USer/person 

user=> (let [{name :name} person|] (str “The person's name 1s " name)) 
"The person's name 1s Jabba" 
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同时 处 理 映 射 表 和 回 量 : 

user=> (def villains [{:name “Godz111a” :size "big"} {:name "“Ebola” :size "small™"}]) 
#'USer/villains 

user=> (let [[ {name :name}] villains] (str "Name of the second villain: " name)) 
"Name of the second villain: Ebola" 


上 面 例 子 中 我 们 绑 定 了 一 个 回 量 ， 跳 过 第 一 个 元 系 并 提取 出 第 二 个 映射 表 中 的 name 值 。 你 可 
以 从 这 看 出 Lisp 对 Prolog， 以 及 ( 推 而 广 之 ) Erlang 的 影响 。 解 构 基 本 上 就 是 模式 匹配 的 一 种 形式 。 





7.2.7 匿名 函数 


在 Lisp 中 ， 哨 数 就 是 数据 。 由 于 代码 和 其 他 任何 类 型 数据 一 样 都 是 数据 ， 因 此 高 阶 函 数 从 语 
言 创 建 之 初 就 被 加 入 到 其 中 。 匿名 孔 数 可 以 创建 没有 名 字 的 函数 。 这 是 本 书 中 提 到 的 每 一 种 语言 
都 具备 的 基本 能 力 。 在 Clojure 中 ,用 也 数 fn 来 定义 高 阶 疯 数 。 通 常会 忽略 函数 名 ， 所 以 调用 形式 
看 起 来 像 这 个 样子 (fn [parameters*] body)。 让 我 们 来 看 个 例子 。 

给 定 一 个 单词 列表 ， 用 高 阶 函 数 构造 一 个 计算 单词 长 度 的 列表 。 比 如 说 我 们 有 一 组 人 名 : 


user=> (def people ["Lea”, "Han Solo"]) 
#"'User/people 


可 以 像 下 面 这 样 计算 一 个 单词 长 度 : 

USer=> (count "Lea"™) 

3 
可 以 像 下 面 这 样 计算 一 组 人 和 名 的 长 度 ， 返 回 一 个 长 度 的 列表 : 

User=> (map count people) 

(3 8) 

这 些 概 念 之 前 已 经 见 过 了 。 其 中 count 是 高 阶 函 数 。 在 Clojure 中 ， 这 个 概念 很 容易 理解 ， 
为 一 个 函数 就 是 一 个 列表 ,和 其 他 任何 列表 元 系 一 样 。 还 可 以 用 同样 的 方式 来 计算 人 名 长 度 的 两 
倍 长 度 ， 像 下 面 这 样 : 

user=> (defn twice-count [w]j (x 2 (count w))) 

#"'USer/twice-count 

USer=> (twice-count "Lando") 

10 


user=> (map twice-count people) 
(6 16) 


由 于 这 个 晒 数 非常 简单 ， 因 此 完全 可 以 改写 成 匿名 因数 ， 像 下 面 这 样 : 


user=> (map (fn [wj (*x 2 (count w))) people) 
(6 16) 


还 可 以 使 用 更 简短 的 形式 : 
user=> (map #(*x 2 (count %)) people) 
(6 16) 


在 这 个 催 写 形式 中 ，#E 义 了 一 个 匿名 困 数 ， 而 % 则 被 绑 定 到 序列 中 的 每 个 元 系 上 。# 吕 做 宏 


读 取 器 (reader macro )。 
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利用 匿名 肾 数 可 以 创建 不 需要 名 字 的 函数 。 在 别 的 语言 中 你 已 经 见 过 它们 了 。 下 面 演 示 可 以 
在 集合 上 使 用 的 高 阶 函 数 。 所 有 这 些 函 数 都 使 用 一 个 共同 的 癌 量 v: 
user=> (def v [3 1 2]) 








# USer/v 
在 下 面 的 例子 里 ， 我 们 会 用 到 这 个 列表 及 一 些 匿名 国 数 。 
1. apply 


apply 沁 数 在 参数 列表 上 应 用 指定 水 数 。(apply f' (x y)) 类 似 (f x y)， 例如: 


user=> (apply + Vv) 
6 
user=> (apply max v) 


2. filter 

fil1ter 卫 数 与 Ruby 中 的 find_al1 相 像 。 给 定 一 个 测试 冰 数 它 会 返回 所 有 通过 测试 的 元 素 的 
序列 。 比 如 说 ， 要 获取 奇数 元 素 或 小 于 3 的 元 素 ， 可 以 这 人 么 做 : 

user=> (filter odd? v) 

(3 1) 

user=> (filter #(< % 3) v) 

ss 


在 深入 学 习 Clojure 序 列 时 我 们 会 进一步 了 解 一 些 匿名 函数 。 现 在 让 我 们 稍 事 休息 ， 来 看 看 
Clojure 的 创造 者 Rich Hichkey 有 什么 要 说 的 。 








7.2.8 Rich Hickey 访 谈 录 


Rich Hichkey 为 本 书 的 读者 们 回答 了 一 些 问 题 。 他 特别 感 兴趣 的 一 个 话题 是 : 与 其 他 Lisp 版 
本 相 比 ， 为 什么 这 个 版 本 的 Lisp 会 获得 更 广泛 的 成 功 。 所 以 这 个 访谈 录 所 涵 兰 的 话题 范围 会 比 其 
他 访谈 录 要 更 宽泛 一 些 。 我 布 望 你 也 能 像 我 一 样 喜欢 他 的 回答 。 

Bruce: 你 为 什么 要 开发 Clojure? 

Rich: 我 不 过 是 一 个 实践 者 , 希望 能 在 像 JVM 和 CLR 这 样 的 业界 标准 平台 上 找到 一 种 采用 主 
流 函 数 式 且 可 扩展 的 动态 语言 ， 而 且 它 能 很 好 地 支持 并 发 ， 但 是 我 没 找到 。 

Bruce: 你 最 喜欢 它 哪 一 点 呢 ? 

Rich: 我 喜欢 它 的 数据 结构 和 类 库 的 抽象 性 以 及 简单 性 。 也 许 这 是 两 件 事 , 但 它们 是 相关 联 的 。 

Bruce: 如 果 能 让 时 光合 流 ， 你 想 改变 哪些 特性 ? 

Rich : 我 会 尝试 数值 类 型 的 不 同 实现 。 在 JVM 上 装 箱 的 数值 绝对 是 一 个 悲剧 。 这 也 是 我 目前 
正在 积极 努力 的 一 个 领域 。 

Bruce: 你 见 到 过 用 Clojure 解 决 的 最 有 趣 的 问题 是 什么 ? 

Rich: 我 想 Flightcaster"” ( 实时 预测 航班 延误 的 服务 ) 利用 了 Clojure 的 很 多 方面 ， 比 如 利用 
宏 的 语法 抽象 性 创建 用 于 机 器 学 习 和 统计 推理 的 DSL， 利 用 Java 互 操作 能 力 来 使 用 像 Hadoop 和 





中 参见 http://www.infoq.com/articles/flightcaster-clojure-rails。 一 一 原 书 注 
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Cascading 这 样 的 基础 设施 。 

Bruce: 很 多 Lisp 方 言 在 获取 更 广泛 的 成 功 方面 都 败 下 阵 来 ，Clojure 如 何 能 成 功 ? 

Rich: 这 是 个 非常 重要 的 问题 ! 我 不 否认 主要 Lisp 方 言 (Scheme 和 Common Lisp ) 已 经 完成 
了 它们 的 使 命 。Scheme 的 目的 是 通过 一 个 很 精炼 的 语言 来 捕捉 计算 的 本 质 ， 而 Common Lisp 则 致 
力 于 标准 化 科研 中 所 用 到 的 各 种 Lisp 方 言 。 但 它们 都 没 能 够 作为 一 种 实用 工具 成 为 业界 开发 者 所 
使 用 的 通用 编程 语言 ， 实 际 上 这 也 不 是 它们 的 设计 目标 。 

另 一 方面 ，Clojure 是 设计 用 来 作为 一 种 实用 工具 , 为 业界 的 开发 者 所 使 用 的 一 种 通用 生产 性 
编程 语言 ， 为 此 在 传统 的 Lisp 上 加 入 了 这 些 新 的 目标 。 它 更 适 于 团队 开发 ， 擅 长 和 其 他 语言 相互 
协作 ， 而 且 还 解决 了 一 些 传统 的 Lisp 问 题 。 

Bruce: 为 什么 Clojure 在 团队 开发 中 表现 更 好 ? 

Rich: 某 种 意义 上 说 ， 有 些 Lisp 最 关心 的 是 如 何 挖掘 个 体 开发 者 的 最 大 力量 ， 而 Clojure 认 为 
开发 是 一 项 团队 活动 。 例 如 ， 它 不 支持 用 户 自 定义 的 宏 读 取 器 ， 因 为 这 样 做 会 导致 代码 被 写成 一 
堆 互 不 兼容 的 微 方言 。 

Bruce: 为 什么 Clojure 选 择 和 运行 在 现 有 的 虚拟 机 上 ? 

Rich: 现 如 今 ， 全 世界 已 经 积累 了 大 量 有 价值 的 、 使 用 其 他 语言 编写 的 代码 ， 而 这 种 情况 在 
Lisp 刚 被 开发 出 来 的 那个 年 代 还 没 出 现 。 因 此 在 今天 能 够 调用 其 他 语言 和 被 其 他 语言 调用 的 能 
必 不 可 少 ， 尤 其 是 在 JVM 和 CLR" 上 。 

剥 离 簿 主 操作 系统 的 标准 多 语言 平台 ， 在 Lisp 被 发 明 的 那个 年 代 几 乎 不 存在 。 整 个 业界 比 以 
前 大 出 好 几 个 量 级 ， 事 实 标准 也 已 经 诞生 。 从 技术 角度 讲 ， 类 似 复杂 、 精 密 的 垃圾 收集 器 ， 以 及 
HotSpot 这 样 的 动态 编译 器 ， 都 是 支持 重用 核心 技术 的 技术 层 工 具 。 因 此 ，Clojure 更 强调 语言 在 
平台 上 (language-on-platform )， 而 非 语言 即 平台 ( language-is-platform )。 

Bruce: 你 说 的 没 错 ， 但 是 这 门 Lisp 方 言 如 何 才能 更 平易 近 人 ? 

Rich: 可 以 改进 的 地 方 很 多 。 比 如 说 ， 我 们 想 过 要 处 理 括 与 “问题 "”。Lisp 程 序 员 深 知 代码 即 
数据 的 价值 ， 但 是 轻 多 放弃 那些 被 括 己 阻 挡住 的 开发 者 是 不 对 的 。 我 认为 从 foo(Cbar，baz) 转 到 
(foo bar baz) 对 开发 者 来 说 并 不 是 很 困难 。 不 过 我 的 确 花 了 很 多 功夫 来 观察 老 Lisp 代 码 中 括号 
的 使 用 ， 找 寻 是 否 存在 改进 的 机 会 ， 结 果 确 实 有 改进 的 空间 。 老 Lisp 的 一 切 都 用 括号 ， 而 Clojure 
已 有 很 大 的 进步 。 老 Lisp 里 括号 简直 是 太 多 了 。Clojure 选 择 了 相反 的 方式 ， 尽 量 去 掉 成 对 儿 的 括 
号 ， 虽 然 这 使 得 编写 宏 的 工作 变 得 稍微 困难 了 一 些 ， 但 却 方便 了 使 用 者 。 

更 少 的 括号 , 几乎 不 存在 括号 重 载 ,， 这 二 者 使 得 Clojure 远 比 老 Lisp 更 容易 审查 、 阅 读 和 理解 。 
事实 上 类 似 ((AType)athing) .amethod() 这 样 以 两 个 括号 打头 的 可 怕 代 码 在 Java 中 比 在 Clojure 
中 要 更 常见 。 


7.2.9 ”第 一 天 我 们 学 到 了 什么 


Clojure 是 在 JVM 上 的 函数 式 语言 。 与 Scala 和 和 Erlang 类似 ， 这 种 Lisp 方 言 不 是 纯 函 数 式 语言 。 


QCLR (Common Language Runtime， 公 共 语 言 运行 时 )，.NET 平 台 的 虚拟 机 。 一 一 原 书 注 
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它 允 许 有 限 的 特殊 情况 。 与 其 他 Lisp 方 言 不 同 的 是 ，Clojure 增 加 了 一 些 语法 ,映射 表 用 大 括号 ， 
而 癌 量 用 方 括号 。 可 以 用 逗号 作为 空 日 全 ,在 有 些 地 方 还 能 省 略 挥 括号 。 

我 们 学 习 了 使 用 Clojure 基 本 形式 。 较 为 简单 的 形式 包括 布尔 值 、 字 符 、 数 字 、 关 键 字 和 字符 
昌 。 我 们 还 了 解 了 各 种 集合 。 列 表 和 回 量 是 有 序 集合 ， 回 量 是 为 随机 访问 优化 的 ， 而 列表 是 为 顺 
序 遍 历 优 化 的 。set 是 无 序 集 合 ， 映 射 表 则 是 键 值 对 。 

我 们 定义 了 一 些 函 数 ， 通 过 提供 函数 名 、 人 参数 列表、 函数 体 以 及 一 个 文档 字符 串 〈 可 选 ) 来 
完成 定义 。 接 下 来 在 介绍 绑 定 时 用 到 了 解构 ,解构 可 以 将 任意 形 参 绑 定 到 实 参 的 任意 部 分 上 。 这 
些 特性 令 人 联想 起 Prolog 和 Erlang。 最 后 , 我 们 定义 了 一 些 匿 名 孙 数 并 通过 map 子 数 使 用 它们 来 过 
历 集合 。 

在 第 二 天 ， 我 们 会 看 看 Clojure 的 递归 ， 这 也 是 绝 大 部 分 图 数 式 语言 中 的 一 个 基本 组 成 部 分 。 
我 们 还 会 介绍 序列 和 延迟 计算 , 它们 作为 Clojure 模 型 基石 的 一 部 分 ,帮助 实现 了 集合 之 上 的 强大 
的 公共 抽象 层 。 

现在 ， 我 们 先 休息 一 下 ， 练 习 一 下 前 面 所 学 的 内 容 。 









































7.2.10 ”第 一 天 自习 

Clojure 是 一 门 新 的 编程 语言 , 但 是 你 仍 会 发 现 其 社区 异 尝 活跃 且 增 长 迅速 。 在 为 本 书 进 行 研 
究 时 ，Clojure 社 区 是 我 找到 的 最 棱 的 社区 之 一 。 
找 








口 使 用 Clojure 序 列 的 例子 。 
口 Clojure 孙 数 的 正式 定义 。 
口 用 于 在 你 的 环境 中 启动 repl 的 脚本 。 





口 实现 一 个 函数 (big st _n) ， 当 字符 串 st 长 度 不 超过 n 个 字符 时 返回 true。 
口 实现 一 个 函数 (co11ection-type co1) ， 根 据 给 定 集合 co1 的 类 型 返回 :11st，:map 
或 :vector。 


7.3 第 二 天 : Yoda 与 原 力 


作为 一 名 绝地 大 师 ，Yoda 训 练 他 的 学 徒 们 使 用 和 理解 一 切 生 合体 的 统一 体现 一 一 原 力 。 在 这 
一 方 中 , 我 们 将 开始 学 习 Clojure 中 最 基本 的 概念 。 我 们 会 谈 到 序列 、 统 一 Clojure 集 合 以 及 将 这 些 
集合 与 Java 集 合 连 接 的 抽象 层 。 我 们 还 会 介绍 延迟 计算 ， 按 需 计 算 序 列 成 员 的 即时 策略 。 接 看 我 
们 会 探究 所 有 Lisp 原 力 之 所 在 ， 那 个 神秘 的 语言 特性 : 安 。 











7.3.1 用 1oop 和 recur 递 归 


你 在 本 书 的 其 他 堵 言 那儿 已 经 学 到 过 ， 阴 数 式 语言 依赖 递归 而 非 遍 历 。 下面 是 一 个 计算 向 量 
大 小 的 递归 程序 : 
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(defn size [v] 
(if (empty? v) 
0 
(inc (size (rest v))))) 


(size [1 2 3]) 

理解 起 来 并 不 困难 , 空 列 表 大 小 为 去 , 非 空 列表 比 其 尾部 多 一 。 我 们 已 经 见 过 其 他 霹 言 的 类 
似 方案 。 

栈 会 增长 ， 因 此 递归 算法 会 持续 消耗 内 存 直至 内 存 耗 尽 。 函 数 式 语言 通过 使 用 尾 递 归 优 化 技 
术 规 避 这 个 问题 。 受 到 JVM 限 制 ，Clojure 并 不 文 持 隐 式 的 尾 递 归 优 化 。 你 必须 显 式 地 使 用 1oop 
和 recur 进 行 递 归 ， 可 以 把 loop 看 作 是 1et 语 人 句 。 

(loop [x x-initial-value, y y-initial-value] (do-something-with x y)) 

初始 时 ， 对 于 给 定 癌 量 ，1oop 会 将 回 量 中 偶数 位 变量 绑 定 到 奇数 位 的 值 上 。 事 实 上 ， 如 采 
不 声明 recur，1oop 和 1et 效 果 完 全 一 样 : 


user=> (loop [x 1] x) 
1 


男 数 recur 会 再 次 调用 循环 并 传人 新 值 。 
用 recur 重 构 sijze 困 数 : 


(defn size [vj 
(loop [1 v, c 0] 
(if (empty? 1) 
C 
(recur (rest 1) (inc c))))) 


在 size 的 第 二 个 版 本 中 ,使 用 了 经 过 尾 递归 优化 的 1l0op 和 recur。 由 于 并 不 真正 返回 结果 值 ， 
因此 我 们 在 变量 中 保存 结果 ， 这 个 变量 称 为 累加 器 。 在 这 个 例子 里 ，c 用 于 计数 。 

这 个 版 本 会 像 经 过 尾 递 归 优 化 一 样 工作 ， 但 是 我 们 却 为 此 新 增 了 几 行 看 起 来 非常 糟糕 的 代 
码 。 有 时 ，JVM 就 像 一 把 双 刃 剑 。 如 果 你 需要 交互 ， 那 就 必须 把 问题 处 理 掉 。 不 过 由 于 这 个 函数 
已 经 加 入 到 集合 的 基础 API 中 ， 你 不 会 经 常 需要 用 到 recur。 此 外 ，Clojure 也 提供 了 一 些 优秀 的 
递归 替代 技术 ， 包 括 后 面 会 讲 到 的 延迟 序列 。 

第 二 天 的 最 乏味 的 部 分 到 这 里 就 介绍 完了 , 下面 转 问 更 令 人 愉快 的 事物 。 我 们 将 要 了 解 序 列 
的 一 些 特性 ， 而 正 是 这 些 特性 使 得 Clojure 如 此 特别 。 




















7.3.2 ”序列 


序列 是 与 具体 实现 无 天 的 抽象 屋 , 圳 括 了 Clojure 系 统 里 各 式 的 容 需 。 序 列 封 装 了 所 有 Clojure 
集合 〈set、 有 映射 表 、 回 量 ， 等 等 )、 字 符 串 ， 甚 至 包括 文件 系统 结构 ( 流 、 目 录 )。 它 们 也 为 Java 
容 希 提供 了 公共 抽象 ， 包 括 Java 集 合 、 数 组 以 及 字符 串 。 一 般 来 说 ， 只 要 文 持 国 数 first、rest 
和 cons， 就 可 以 用 序列 封 痛 起 来 。 

使 用 回 量 时 ，Clojure 有 时 会 在 命令 行 中 返回 列表 : 
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user=> [1 2 3] 

[1 2 3] 

user=> (rest [1 2 3]) 
(2 3) 


注意 ， 开 始 用 的 是 向 量 ， 但 结果 并 不 是 列表 。repl 实 际 上 是 返回 序列 作为 响应 。 这 意味 着 所 
有 集合 都 能 以 一 种 通用 方式 对 待 。 让 我 们 来 看 看 公共 序列 函数 库 ， 它 的 丰 宦 与 强大 ， 用 一 市 的 内 
容 难 以 描述 , 但 我 会 试 着 让 你 了 解 都 有 哪些 可 用 的 函数 ， 下 面 简单 介绍 一 下 用 于 修改 、 测 试 和 创 
建 序列 的 函数 。 

1. 测试 

如 果 要 测试 序列 ， 可 以 用 判定 函数 。 它 接受 序列 和 一 个 测试 函数 并 返回 布尔 值 。 如 果 测 试 函 
数 对 所 有 序列 元 素 测 试 结果 都 是 真 ，every? 会 返回 true: 


User=> (every? number? [1 2 3 :four]) 
false 


这 里 有 一 个 元 素 不 是 数字 。 只 要 序列 中 有 元 素 测 试 为 真 ，some 隙 数 就 会 返回 true: 了 
(some nil? [1 2 ni1]) 

true 

其 中 一 个 元 素 为 ni11。not-every? 和 not-any? 则 反 过 来 : 


user=> (not-every? odd? [1 3 5]) 

false 

user=> (not-any? number? [:one :two :threel]) 
true 


下 面 来 看 看 修改 序列 的 也 数 。 

2. 修改 序列 

序列 也 数 库 中 包含 一 系列 用 于 以 各 种 方式 转换 序列 的 函数 。 你 已 经 见 过 fi1ter 孙 数 。 要 所 
取出 长 度 大 于 4 的 单词 ， 用 下 面 这 段 代 码 : 

user=> (def words ["luke™” "chewie” "han” "lando" |]) 

#"'USer/words 


user=> (filter (fn [word] (> (count word) 4)) words) 
("chewie” "lando") 


为 外 你 也 已 经 见 过 map 函 数 ， 它 对 集合 所 有 元 系 调 用 同一 也 数 并 返回 其 结 来 。 用 癌 量 的 所 有 
元 系 创 建 一 个 由 其 平方 数组 成 的 序列 : 


user=> (map (fn [xj (x x x)) [1 1 2 3 5]) 
(T1149 25) 


列表 解析 结合 了 映射 和 过 滤 ， 如 你 在 Erlang 和 Scala 中 见 到 的 一 样 。 列 表 人 解析 能 组 合 多 个 列表 
和 过 滤 货 ， 穷 举 列表 之 间 所 有 可 能 的 组 合 ， 然 后 对 其 使 用 过 滤 帮 。 我 们 先 看 个 人 简单 例子 。 有 两 个 
列表 ，colors 和 toys: 






























































GD 更 准确 地 说 ，some 返 回 第 1 个 不 是 ni1 或 false 的 值 。 例 如 ，(some first[[][1]]) 会 返回 1。 一 一 原 书 注 


图 灵 社 区 会 员 LorraineMeillorrainemei@gmail.com) 专 享 尊重 版 权 


188 第 7 章 Clojure 


user=> (def colors [red” "blue"|]) 
#'USer/colors 

user=> (def toys [ block” "car"]) 
# USer/toys 


列表 解析 可 以 结合 前 数 使 用 ， 类 似 于 映射 : 


user=> (for [x colors] (str "I like ”Xx)) 
("I like red”" "I like blue") 


[x colors] 将 x 绑 定 到 来 和 目 colors 列 表 的 元 又 上 。 而 (Cstr "I 1ike " x) 则 是 应 用 于 colors 
中 的 每 个 x 的 图 数 。 当 你 绑 定 多 于 一 个 列表 时 ， 事 情 会 变 得 更 有 趣 : 
user=> (for [x colors, y toys] (str "I like "x " ”ys )) 


("I like red blocks™” "I like red cars" 
"TIT like blue blocks™ "I like blue cars") 


列表 解析 创建 出 两 个 列表 之 间 所 有 可 能 的 组 合 。 绑 定时 还 能 通过 :when 关 键 词 来 过 滤 : 


user=> (defn small-word? [w] (< (count w) 4)) 

#'USer/small-word? 

user=> (for [x colors, y toys, :when (small-word? y)] 
(str "I like "x " "yy"s")) 

("I like red cars” "I like blue cars") 


我 们 编写 了 一 个 叫 smal1-word? 的 过 泪 希 。 定 义 任何 长 度 小 于 4 个 字符 的 单词 算是 
smal1-word。 通 过 :when (smallword? y) 对 y 应 用 了 过 小 大 smal11-word?。 这 样 一 来 承 能 得 到 
所 有 可 能 的 组 合 (x，y) ， 其 中 x 是 colors 的 成 员 ，y 是 toys 的 成 员 ， 且 y 的 长 度 小 于 4 个 字符 。 代 
码 包 含 的 信息 量 很 密集 ， 但 是 却 清 晰 明了 。 这 是 理想 的 组 合 ， 让 我 们 继续 吧 。 

你 已 经 在 Erlang、Scala 和 Ruby 中 见 过 了 fold1、foldleft 和 inject。 在 Lisp 中 ,它们 的 等 价 
的 是 reduce 国 数 。 求 和 或 求 阶 乘 可 以 这 样 写 : 

user=> (reduce + [12 3 4]) 

10 


USer=> (reduce x [1 2 3 4 5]) 
120 


可 以 这 样 进行 列表 排序 : 
user=> (sort [3 1 2 4]) 
(1 2 3 4) 


也 可 以 按 蚂 数 结果 进行 排序 : 
user=> (defn abs [x] (if (< x 0) (- x) x)) 
#'USer/abs 
user=> (sort-by abs [-1 -4 3 21) 
(-12 3 -4) 


这 里 定义 了 一 个 名 为 abs 的 也 数 来 计算 绝对 值 ， 接 者 在 排序 中 使 用 了 它 。 以 上 就 是 Clojure 最 
重要 的 序列 转换 函数 。 接 下 来 我 们 介绍 创建 序列 的 函数 ， 在 进行 之 前 ， 你 必须 变 得 稍微 “迟钝 ” 
一 点 儿 。 
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7.3.3 延迟 计算 


在 数学 中 , 无 限 数列 通 稼 很 容易 摘 述 。 在 函数 式 语 言 中 , 也 篆 能 孚 受到 同样 的 益处 ， 不 过 不 
能 真 去 计算 一 个 无 穷 序 列 ， 这 个 问题 的 解决 办 法 就 是 延迟 计算 。 通 过 使 用 这 种 条 略 ，Clojure 的 序 
列 函 数 库 只 会 在 一 个 值 真 正 被 使 用 时 才 去 计算 它 。 事实 上 , 绝 大 多 数 序 列 都 是 延迟 计算 的 。 让 我 
们 简单 了 解 一 下 创建 有 穷 序 列 的 过 程 ， 然 后 再 讲解 延迟 序列 。 

1. 用 range 创 建 有 穷 序列 

与 Ruby 不 同 ，Clojure 文 持 range 也 数 。range 能 创建 一 个 序列 . 


user=> (range 1 10) 
(1 23456789) 


注意 ， 上 限 不 包含 在 区 间 内 。 序 列 中 不 包含 10。 还 可 以 指定 任意 步 长 : 


user=> (range 1 10 3) 
(1 4 7) 


如 条 不 指定 步 长 ， 也 可 以 不 指定 下 限 : 


user=> (range 10) 
(O1234567 8 9) 


零 是 默认 下 限 。 用 range 创 建 出 来 的 序列 都 是 有 穷 的 。 那 如 果 想 创建 一 个 无 上 限 的 序列 要 如 
何 做 ? 那 是 一 个 无 穷 序 列 。 下 面 来 看 看 如 何 创建 无 穷 序列 。 

2. 无 穷 序 列 和 take 

先 从 最 基本 的 无 穷 序 列 开 始 ， 即 不 断 重 复 同一 元 素 的 序列 ， 这 可 以 用 (repeat 1) 得 到 。 如 
果 在 repl 中 尝试 这 个 命令 的 话 ， 屏 间 会 不 停 地 输出 1， 直 到 结束 进程 为 止 。 很 明显 , 我 们 需要 某 种 
方法 来 只 获取 其 中 一 个 有 限 的 子 集 。 这 就 需要 使 用 困 数 take: 


user=> (take 3 (Crepeat "Use the Force，Luke )) 
("Use the Force，Luke” "Use the Force，Luke” "Use the Force, Luke") 


如 上 上， 我 们 创建 了 一 个 不 断 重复 字符 串 "Use the Force，Luke" 的 无 穷 序 列 ， 接 着 取出 了 
前 三 个 元 素 。 还 可 以 用 函数 cyc1e 来 重复 列表 中 的 元 素 


user=> (take 5 (cycle [:lather :rinse :repeat])) 
(:lather :rinse :repeat :lather :rinse) 


我 们 从 回 量 [:1ather :rinse :repeat] 的 循环 中 取出 前 5 个 元 邓 。 除 此 以 外 ， 我 们 还 能 丢 
茎 序列 中 的 前 儿 个 元 于 : 

user=> (take 5 (drop 2 (cycle [:lather :rinse :repeat|))) 

(:repeat :lather :rinse :repeat :lather) 

从 内 回 外 执行 , 第 一 步 还 是 创建 循环 , 然后 丢弃 前 2 个 元 素 , 接着 取出 紧 跟 在 后 面 的 5 个 元 素 。 
但 也 不 是 必须 从 内 回 外 执行 。 可 以 使 用 新 的 从 左 向 右 操作 符 (->>) ， 将 每 个 函数 分 别 应 用 于 一 


个 结 





















































user=> (->> [:lather :rinse :repeat] (cycle) (drop 2) (take 5)) 
(:repeat :lather :rinse :repeat :lather) 


就 这 样 ， 先 创建 一 个 向 量 , 转 入 函数 cyc1le 创 建 序列 , 然后 丢弃 2 个 元 素 , 接着 取出 5 个 元 系 。 
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有 时 候 ， 从 左 癌 右 的 代码 读 起 来 还 是 更 容易 一 些 。 如 有 果 想 在 单词 间 添 加 分 隔 符 ， 可 以 用 函数 
1nterpose: 


user=> (take 5 (interpose :and (cycle [:lather :rinse :repeat]))) 
(:lather :and :rinse :and :repeat) 


我 们 把 关键 词 :and 搬 和 人 到 无 穷 序列 的 所 有 元 系 之 间 。 可 以 把 这 个 困 数 当 作 是 Ruby 中 join 的 
通用 版 本 。 如 果 想 执行 一 个 插入 ， 而 插入 用 的 元 系 取 目 一 个 序列 该 怎么 办 ? 那 束 要 用 到 函数 


interleave: 

















user=> (take 20 (interleave (Cycle (range 2)) (Cycle (range 3)))) 
0 0 02 0 0 L1200110210) 


我 们 将 两 个 无 穷 序 列 (Ccycle (range 2)) 和 (cycle (range 3)) 交 错 。 接 着 ， 取 出 前 20 个 
元 系 。 结 采 正 如 你 看 到 的 ， 偶 数位 是 (0 1 0 10 10101), 奇效 位 是 (012012012 
0 大 刘 晃 了 < 

iterate 图 数 提供 另 一 种 创建 序列 的 方法 。 看 看 下 面 的 例子 : 

USer=> (take 5 (iterate inc 1)) 

(1 2 3 了 5) 

user=> (take 5 (iterate dec 0)) 

(0 -1 -2 -3 -4) 

iterate 国 数 接受 一 个 郴 数 和 一 个 起 始 值 作为 参数 。 然 后 iterate 对 起 始 值 重 复 调用 作为 参 
数 传人 的 那个 函数 。 上 面 例子 中 ， 分 别 调用 函数 inc 和 dec。 

下 面 是 计算 斐 波 那 契 数列 的 例子 , 该 数列 的 每 个 数字 都 是 前 两 个 数值 之 和 。 对 给 定数 值 对 [a 
b] ， 可 以 用 [b，a + b] 来 生成 下 一 对 。 在 给 定 前 一 对 的 条 件 下 ， 可 以 创建 匿名 明 数 来 生成 下 一 
对 ， 像 下 面 这 样 : 

user=> (defn fib-pair [[a b]] [b (+ a b)]) 

#'user/fib-pair 

user=> (fib-pair [3 5]) 

[5 8] 

接 下 来 ， 我 们 会 用 因数 iterate 构 建 一 个 无 穷 数 列 。 先 别 急 着 执行 这 行 : 

(iterate fib-pair [1 1]) 

我 们 用 孔 数 map 提 取出 所 有 数值 对 的 第 一 个 元 系 : 


(map 
十 FS 下 
(iterate fib-pair [1 1])) 
这 也 是 个 无 穷 数 列 。 现 在 ， 可 以 提取 出 前 5 个 元 系 : 
USer=> (take 5 
(map 
first 
(iterate fib-pair [1 1]))) 
(1 235) 


或 者 也 可 以 提取 出 第 500 个 元 素 , 像 下 面 这 样 . 
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(nth (map first (iterate fib-pair [1 1])) 500) 

(225... more numbers ...626) 

性 能 非常 出 色 。 利 用 延 民 序列 ， 描 述 类 似 裴 波 那 契 数列 这 样 的 递归 问题 非常 容易 。 另 一 个 例 
子 是 阶乘 . 

user=> (defn factorial [n] (apply * (take n (iterate inc 1)))) 

#' USer/factorial 


user=> (factorial 5) 
120 


上 面 从 无 穷 数 列 (iterate inc 1) 中 取出 n 个 元 素 。 然 后 用 apply * 将 它们 相 乘 。 这 个 办 法 
非常 简单 。 接 下 来 探索 Clojure 吨 数 defrecord 和 protoco1。 








7.3.4 defrecord 和 protoco1] 


到 目前 为 止 ， 我 们 只 在 较 高 的 层面 上 谈论 过 Java 人 集成， 但 是 你 还 没有 看 到 JVM 渗 透 入 
Clojure 的 全 狗 。 说 到 底 ，JVM 就 是 与 类 型 和 接口 有 关 。( 如 果 你 不 是 Java 程 序 员 ， 可 以 把 类 型 
看 作 是 Java 类 , 接口 看 作 是 没有 实现 的 Java 类 。) 为 了 使 Clojure 能 很 好 地 集成 JVM, 最 初 的 实现 
中 有 大 量 Java。 

随 着 Clojure 速 度 提升 并 且 开 始 证 明 目 己 是 一 种 高 效 的 JVM 语 言 ， 人 们 强烈 地 认为 应 该 用 
Clojure 语 言 本 里 来 实现 更 多 的 Clojure。 为 了 做 到 这 一 点 ，Clojure 开 发 者 需要 找到 一 种 方法 来 构建 
平台 高 性 能 "的 开放 扩展 ， 使 得 他 们 可 以 对 抽象 编程 ， 而 非 对 具体 实现 编程 。 得 到 的 结果 是 
defrecord 用 于 类 型 ，protoco1 用 于 围绕 类 型 来 组 织 图 数 。 从 Clojure 的 观点 看 , 面 回 对 象 (OO ) 
中 最 好 的 部 分 是 类 型 和 协议 〈 比如 接口 )， 而 最 差 的 部 分 则 是 对 有 具体 实现 的 继承 。Clojure 的 
defrecord 和 protoco1 就 是 去 其 糟粕 ， 取 其 精华 。 

在 本 书 编写 过 程 中 ， 这 些 重要 的 语言 特性 仍 在 不 断 发 展 之 中 。 我 需要 仰 仗 Stuart Halloway 的 
帮助 来 完成 一 个 有 实际 意义 的 实现 。 他 是 Relevance 的 创始 人 ， Programming Clojure[Hal09] 一 书 
的 作者 。 我们 将 会 回顾 JVM 上 的 另外 一 门 晒 数 式 语 言 Scala， 还 会 用 Clojure 重 写 罗 盘 程 序 。 让 我 们 
赶紧 开始 吧 。 

首先 , 我 们 来 定义 一 个 协议 。Clojure 协 议 类 似 契 约 。 这 个 协议 的 类 型 能 文 持 一 组 具体 的 吨 数 、 
字段 和 参数 。 下 面 是 一 个 描述 Compass 的 协议 : 


clojure/compass.clj 
































(defprotocol Compass 
(direction [c]) 
(left [c]) 

(right [c])) 


上 面 的 协议 定义 了 一 个 叫做 Compass 的 抽象 ， 并 列举 了 Compass 必 须 支 持 的 所 有 蕊 


数 direction、1left 和 right 及 其 指定 的 参数 。 接 下 来 就 可 以 自由 使 用 defrecord 来 实现 协 





中 据 Bruce Tate 解 秋 ， 这 里 的 平台 指 具 体 计算 机 。JVM 有 时 不 够 快 。 由 于 defrecord 和 protocol 被 用 于 实现 非常 底层 
的 函数 ， 可 能 要 每 秒 执行 上 千 次 。 它 们 需要 被 优化 ， 有 时 是 通过 下 放 到 更 底层 的 语言 来 实现 。 
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以 了 。 接 下 来 ,我 们 需要 定义 4 个 方 回 : 

(def directions [:north :east :south :west]|) 

然后 我 们 还 需要 一 个 函数 来 处 理 转 回回 忆 一 下 , 基本 方 同 :north、 :east、 :south 和 :west 
分 别 由 整数 0、1、2 、3 表 示 。 在 初始 方向 上 每 加 1 就 让 罗盘 右 转 90" 。 这 样 通 过 base/4 (更 准确 
的 说 是 base/number-of-directions ) 取 余 就 能 准确 计算 从 :west 到 :north 的 转 丫 ， 如 下 
所 示 : 


(defn turn 
[base amount] 
(rem (+ base amount) (count direct1ions))) 


转向 能 用 了 。 现 在 加 载 罗盘 的 代码 文件 ， 然 后 试 试 turn 阴 数 : 


user=> (turn 1 1) 
2 
user=> (turn 3 1) 
0 
user=> (turn 2 3) 
1 


换 人 句 话 说， 从 :east 问 右 转 一 次 得 到 :south， 从 :west 回 右 转 一 次 得 到 :north， 从 :south 
回 右 转 三 次 得 到 :east。 

接 下 来 实现 协议 。 轮 到 defrecord 上 场 了 。 我 们 会 一 部 分 一 部 分 地 完成 实现 。 首 先 ， 用 
defrecord 声 明 实 现 ， 像 下 面 这 样 : 


(defrecord SimpleCompass [bearingl] 
Compass 


我 们 定义 了 一 个 名 为 SimpleCompass 的 新 记录 。 它 有 一 个 字段 叫做 bearing。 接 下 来 实现 
Compass 协 议 ， 从 函数 direction 开 始 : 


(direction [_] (directions bearing)) 


direction 子 数 在 directions 中 查找 下 标 为 bearing 的 元 素 。 例 如 ，(directions 3) 返 
回 :west。 每 个 参数 列表 都 有 一 个 指 癌 对 象 实例 的 引用 ( 比如 Ruby 中 的 se1f, 或 者 Java 中 的 this )， 
但 是 我 们 并 没有 使 用 它 ， 因 此 在 参数 列表 中 加 入 了 _ (下划线 )。 接 下 来 实现 函数 1eft 和 right: 


(left [_] (SimpleCompass. (turn bearing 3))) 
(right [_] (SimpleCompass. (turn bearing 1))) 


记 住 ,在 Clojure 中 ,我 们 使 用 的 是 不 可 变 值 。 这 意味 着 所 有 转 问 函数 都 要 返回 一 个 新 的 、 修 
改 好 的 罗盘 ， 而 不 是 直接 修改 原来 的 罗盘 。 艺 数 1left 和 right 使 用 了 你 以 前 没 见 过 的 语法 。 
(SomeType. arg) 意 味 着 调用 Simpl1eCompass 的 构造 函数 ， 并 绑 定 arg 到 第 一 个 参数 上 。 可 以 
这 样 验 证 , 在 repl 中 输入 (String. "new string"), repl1 会 返回 一 个 新 字符 串 "'new string"。 

负数 1eft 和 right 都 很 容 多 。 各 目 都 返回 一 个 新 罗盘 ， 其 方位 (由 指定 的 新 方位 配置 ) 用 前 
面 定 义 好 的 函数 turn 即 可 。right 癌 右 转 90? 一 次 ， 而 1eft 癌 右 转 90? 三 次 。 目 前 为 止 ， 我 们 
得 到 一 个 实现 协议 Compass 的 类 型 SimpleCompass。 就 差 一 个 返回 字符 串 表 示 的 函数 了 ， 不 过 
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toString 是 java.1ang.0bject 的 方法 ， 要 像 下 面 这 样 把 它 添加 到 类 型 里 ， 很 简单 对 吧 。 


Object 
(toString [this] (str "[™” (direction this) "]"))) 


通过 实现 toString 方 法 实现 了 0bject 协 议 的 一 部 分 ， 返 回 一 个 类 似 SimpleCompass 
[:north] 的 字符 串 。 
现在 ， 类 型 终于 完整 了 。 下 面 来 创建 一 个 新 罗盘 : 


user=> (def c (SimpleCompass. 0)) 
# USery/c 


转 回 会 返回 一 个 新 罗盘 : 


User=> (left C) ; 返回 一 个 新 罗盘 
#:SimpleCompass{:bearing 3} 





User=> C ; 原来 的 罗盘 没有 变化 
#:SimpleCompass{:bearing 0} 
注意 ， 老 罗盘 没 变 。 由 于 我 们 定义 的 是 一 个 JVM 类 型 ， 因 此 可 以 把 所 有 字段 都 当 作 Java 字 段 
来 访问 。 另 外 还 能 把 类 型 里 的 字段 看 作 Clojure 映 射 表 的 关键 词 进行 访问 ， 
USer=> (:bearing c) 
0 
为 这 些 类 型 用 起 来 很 像 映 射 表 , 所 以 可 以 很 容易 地 把 映射 表 当 作 新 类 型 的 原型 , 然后 逐步 
迭代 , 设计 稳定 后 再 把 它们 苦 换 成 类 型 。 也 可 以 在 测试 中 用 映射 表 奉 换 各 种 类 型 作为 测试 桩 或 者 
模拟 对 象 。 除 此 外 还 有 一 些 其 他 好 人 处。 
口 类 型 能 和 其 他 Clojure 的 并 发 编程 结构 很 好 地 共处 。 在 第 三 天 中 ， 我 们 会 学 习 如 何 创 建 对 
Clojure 对 象 的 可 变 引 用 ， 同 时 保持 事务 完整 性 ， 就 像 关 系 型 数据 库 那 样 。 
口 我 们 实现 了 一 个 protoco1， 但 并 没有 被 局 限于 只 使 用 新 方法 。 因 为 我 们 创建 的 是 JVM 类 
型 ， 这 些 类 型 可 以 和 Java 类 型 和 接口 互 操作 。 
通过 defrecord 和 protoco1，Clojure 提 供 了 在 不 使 用 Java 的 前 提 下 构建 JVM 本 地 代码 的 能 
s 这 些 代码 可 以 与 JVM 上 的 其 他 类 型 全 面 交 互 , 包括 Java 类 型 和 接口 。 你 可 以 使 用 它们 继承 Java 





























内 
过 安 来 扩展 Clojure 语 言 日 身 。 
7.3.5 宏 


这 一 市 中 ,我 们 会 引用 Io 那 草 的 内 容 。 我 们 已 经 用 Io 实 现 了 Ruby 的 unless ， 即 3.3 市 的 
Messages。 其 形式 为 (unless test form1)。 如 有 果 test 为 false 则 函数 执行 forml。 这 个 子 数 
不 能 就 这 么 简单 地 直接 设计 出 来 ， 因 为 每 个 参数 都 会 执行 : 


USer=> ， 坏 掉 的 unless 
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user=> (defn unless [test body] (if (not test) body)) 

#"'USer/unless 

User=> (unless true (printin “Danger, danger Will Robinson")) 

Danger, danger Will Robinson 

nil 

Io 一 草 中 我 们 讨论 过 这 个 问题 。 绝 大 多 数 语言 会 先 执 行 参 数 ， 再 把 结果 放 到 调用 栈 上 。 但 是 
这 个 例子 里 ,我 们 不 和 希望 对 代码 块 进 行 求 值 ， 除 非 条 件 为 假 。 在 Io 中 , 语言 通过 延迟 执行 unless 
消息 规避 了 这 个 问题 。 在 Lisp 中 ， 我 们 可 以 使 用 宏 。 当 输入 (unless test body) 时 ,我 们 想 让 
Lisp 将 其 翻译 成 Cif (not test) body)， 这 时 宏 就 派 上 用 场 了 。 

Clojure 程 序 的 执行 分 为 两 个 阶段 。 宏 展开 ( macro expansion ) 阶段 将 语言 里 的 所 有 安 翻 详 成 
其 展开 形式 。 你 可 以 用 命令 macroexpand 观 察 宏 展开 。 我 们 已 经 用 过 几 个 宏 了 ,它们 都 叫做 宏 读 
取 器 。 分 写 (; ) 表示 注释 ， 单 引号 〈( " ) 表示 引用 ， 而 数学 符号 (六) 则 表示 匿名 函数 。 为 了 导 
免 早 于 预期 执行 ， 在 想 展开 的 表达 式 前 面 加 上 一 个 引号 : 


User=> (macroexpand ”Something-we-do-not-want-interpreted ) 
(quote something-we-do-not-want-interpreted) 























user=> (macroexpand ‘'#(count %)) 
(fnx [pl 97] (count pl 97)) 


这 些 就 是 宏 , 一般 来 说 , 宏 展 开 人 允许 你 把 代码 当 作 列表 来 处 理 。 如 果 不 想 立即 执行 一 个 了 池 数 ， 
那 就 把 它 引 起 来 。Clojure 会 完整 地 替换 参数 。 我 们 的 unless 看 起 来 会 像 这 样 : 
User=> (defmacro unless [test bodyj 


(list "if (list not test) body)) 
#' USser/unless 


注意 ，Clojure 在 蔡 换 test 和 body 时 不 会 对 它们 进行 求 伸 , 但 是 必须 把 if 和 not 引 起 来 ， 而 且 
还 要 把 它们 打包 到 列表 中 。 我 们 创建 了 一 个 代码 列表 ， 其 形式 与 Clojure 将 会 执行 的 形式 完全 相 
同 。 可 以 对 它 用 macroexpand 进 行 安 展开 : 


User=> (macroexpand ‘(unless condition body)) 

(if (not condition) body) 
还 能 像 下 面 这 样 执行 : 

user=> (unless true (printin "No more danger, Wil11.")) 

nil 

user=> (unless false (println "Now, THIS is The FORCE.")) 

Now, THIS 1s The FORCE. 

nil 

我 们 修改 了 语言 的 基本 定义 , 增加 了 目 己 的 控制 结构 ， 而 不 需要 语言 的 设计 者 去 增加 他 们 目 
己 的 关键 字 。 安 扩展 恐怕 是 Lisp 中 最 强大 的 特性 了 ， 而 且 没 有 多 少 语言 能 做 到 这 一 点 。 秘 诀 就 在 
于 用 数据 来 表示 代码 ， 而 不 只 是 字符 串 。 代 人 码 本 号 就 已 是 高 阶 数 据 结 构 了 。 

让 我 们 来 总 结 一 下 第 二 天 。 今 天 干 贷 很 足 。 我 们 应 该 暂停 一 下 来 运用 所 学 知识 。 


7.3.6 ”第 二 天 我 们 学 到 了 什么 
又 是 充实 的 一 天 。 收 获 了 这 么 多 抽象 技术 , 你 的 刨 潜 一 定 扩充 了 不 少 , 现在 让 我 们 来 回顾 一 下 。 
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首先 ， 我 们 学 习 了 如 何 使 用 递归 。 由 于 JVM 不 支持 尾 递 归 优 化 技术 ， 所 以 我 们 不 得 不 使 用 
1oop 和 recur。 虽 然 其 语法 本 号 看 起 来 比较 有 站 窗 性 ， 但 这 种 循环 编程 结构 可 以 实现 许多 算法 ， 
而 且 通 常会 用 递归 调用 来 实现 。 

我 们 还 使 用 了 序列 。 通 过 它们 ，Clojure 封 装 了 所 有 对 集合 的 访问 。 利 用 公共 哨 数 库 ， 在 处 理 
集合 时 可 以 使 用 共有 的 策略 。 我 们 使 用 了 不 同 的 函数 来 修改 、 转 换 、 搜 索 序 列 。 高 阶 函 数 为 序列 
中 数 库 增添 了 力量 和 简洁 性 。 

有 了 延迟 序列 , 我们 就 能 够 为 序列 增加 另 一 个 强大 的 层次 。 延 到 序列 简化 了 算法 ,它们 还 提 
供 了 延迟 计算 ， 从 而 潜在 地 大 幅 提 升 性 能 ， 降 低 耦 合 。 

接 下 来 ， 我 们 花 了 一 些 时 间 来 实现 类 型 。 有 了 defrecord 和 protoco1， 我 们 就 能 够 实现 类 
型 ，JVM 上 的 “一 等 公民 ”。 

最 后 , 我们 使 用 宏 给 语言 添加 了 特性 。 我 们 了 人 解 到 有 一 个 步骤 名 为 宏 展 开 , 它 发 生 在 Clojure 
实现 或 解释 代码 之 前 。 通 过 在 宏 展开 中 使 用 孔 数 i1f， 我 们 实现 了 unless。 

这 些 知 识 足 人 够 消化 上 一 阵子 的 了 。 现 在 花 些 时 间 来 实践 一 下 所 学 内 容 吧 。 























7.3.7 第 二 天 自习 








今天 的 学 习 内 容 里 寡 满 了 Clojure 语 言 中 最 尖端 、 最 强大 的 元 系 。 伦 些 时 间 来 探究 和 理解 这 些 
元 系 吧 。 





找 

口 Clojure 中 一 些 和 常用 宏 的 实现 。 

口 一 个 目 定 义 延 迟 序 列 的 例子 。 

口 defrecord 和 protoco1 目 前 的 状态 。( 在 编写 本 书 时 ， 这 些 特性 还 在 开发 中 。) 
做 


口 用 安 实 现 一 个 包含 else 条 件 的 un1ess。 
口 编写 一 个 类 型 用 defrecord 实 现 一 个 协议 。 


7.4 第 三 天 : 一 向 魔 购 


在 《星球 大 战 》 中 ，Yoda 首 先 发 现 了 Darth Vader 心 中 的 那 念 。 对 于 Clojure，Rich Hickey 已 经 
找 出 了 在 开发 面 回 对 象 并 发 系统 时 带 来 麻烦 的 核心 问题 。 我 们 经 常 说 , 可 变 状态 是 潜伏 在 面 对 对 
象 程 序 心脏 里 的 魔鬼 。 前 几 章 展示 过 几 种 处 理 可 变 状态 的 不 同方 法 。Io 和 Scala 使 用 基于 actor 的 模 
型 并 提供 了 不 可 变 编程 结构 ， 给 予 程序 员 在 不 依赖 可 变 状态 下 解决 这 些 问 题 的 力量 。Erlang 提 供 
了 actor 和 轻 量 级 进程 ,以 及 一 个 支持 高 效 监 控 和 通讯 的 虚拟 机 ,市 来 了 前 所 未 有 的 可 徘 性 ,Clojure 
的 并 发 之 路 又 不 同 。 它 使 用 了 STM ( software transactional memory， 软 件 事 务 内 存 ), 在 这 一 方 里 ， 
我 们 会 学 习 STM 以 及 几 种 多 线程 应 用 里 共享 状态 的 工具 。 
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7.4.1 引用 和 事务 内 存 


数据 库 使 用 事务 来 保证 数据 完整 性 。 现 代数 据 库 至 少 使 用 两 种 类 型 的 并 发 控制 。 锁 能 够 防止 
两 个 竞争 事务 同时 访问 同一 行 记录 。 多 版 本 支持 每 个 事务 拥有 其 私有 的 数据 。 如 果 任 何 一 个 事务 
妨碍 了 其 他 事务 ， 数 据 库 引擎 就 会 直接 重新 执行 该 事务 。 

像 Java 这 样 的 语言 使 用 锁 保 护 一 个 线程 的 资源 免 遭 其 他 竞争 线程 的 破坏 。 锁 基本 上 把 并 发 控 
制 的 负担 交 给 了 程序 员 。 我 们 很 快意 识 到 这 个 负担 实在 太 重 ， 难 以 承受 。 

像 Clojure 这 样 的 语言 使 用 STM。 其 策略 是 使 用 多 版 本 维持 一 致 性 和 完整 性 。 不 同 于 Scala、 
Ruby 或 是 Io, 在 Clojure 中 如 果 想 修改 一 个 引用 的 状态 ， 必 须 在 事务 内 进行 操作 。 让 我 们 来 看 看 它 
是 如 何 工作 的 。 

引用 

在 Clojure 中 ，ref (引用 的 简写 ) 是 一 份 封装 好 的 数据 。 所 有 访问 必须 遵守 一 定 的 规则 。 这 
种 情况 下 ， 规则 就 是 要 支持 STM， 即 不 能 在 事务 之 外 修改 引用 。 为 了 观察 它 是 如 何 工 作 的 ,我 们 
先 创建 一 个 引用 : 


user=> (ref "Attack of the Clones") 
#<Ref@Qffdadcd: "Attack of the Clones"> 


这 么 写 没 什么 意思 。 应 该 将 引用 赋 给 一 个 什 ， 像 下 面 这 样 : 
user=> (def movie (ref "Star Wars")) 
#"'UsSer/movie 

可 以 获取 引用 ， 像 下 面 这 样 : 


USer=> movie 
#<RefQ579d75ee: "Star Wars"> 


但 是 我 们 真正 关心 的 是 引用 里 的 值 。 使 用 deref， 如 下 所 示 : 


user=> (deref movie) 
"Star Wars" 


或 者 ， 也 可 以 使 用 deref 的 简写 形式 : 


USer=> Qmovie 
"Star Wars" 


这 样 看 起 来 好 多 了 。 现 在 能 很 容易 地 访问 引用 里 的 值 。 我们 还 没 试 过 修改 引用 的 状态 ， 让 我 
们 来 试 试 。 在 Clojure 中 ， 我 们 传人 一 个 负责 修改 值 的 本 数 ， 解 引用 后 的 ref 则 作为 函数 的 第 一 个 
参数 被 传人 : 

user=> (alter movie str ": The Empire Strikes Back") 

Java.1lang.IllegalStateException: No transaction running (NO_SOURCE_FILE:0) 


如 你 所 见 ， 只 能 在 事务 里 修改 状态 。 这 要 用 到 也 数 dosync。 修 改 引 用 的 首选 方式 是 使 用 转 
换 函 数 来 修改 它 ， 像 下 面 这 样 : 

user=> (dosync (alter movie str ": The Empire Strikes Back")) 

"Star Wars: The Empire Strikes Back" 


还 可 以 用 ref-set 设 置 初 始 值 : 
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User=> (dosync (ref-set movie “Star Wars: The Revenge of the Sith")) 
"Star Wars: The Revenge of the Sith" 


可 以 看 到 引用 已 被 修改 : 


User=> @Qmovie 
"Star Wars: The Revenge of the Sith" 


和 我 们 期 望 的 一 样 ， 引 用 发 生 了 变化 。 尽 管用 这 种 方式 修改 可 变 变量 ( mutable variable ) 看 
起 来 挺 痛 否 的 , 但 Clojure 在 这 里 的 强制 政策 会 免除 以 后 的 很 多 麻烦 。 ry 
程序 绝对 能 正确 运行 ， 即便 是 考虑 到 范 争 条 件 或 者 死 锁 。 大 部 分 代码 用 聘 数 式 编程 郊 型 ， 而 对 那 
些 最 能 通过 可 变性 受益 的 问题 ， 则 使 用 STM。 








7.4.2 ”使 用 原子 


如 果 想 保证 单个 引用 的 线程 安全 ,是 不 需要 与 其 他 活动 协调 ,那么 就 可 以 用 原子 。 这 类 数据 
元 素 可 以 在 事务 的 上 下 文 之 外 被 修改 。 和 引用 类 似 ，Clojure 原 子 (atom ) 也 是 封装 好 的 状态 。 我 
们 来 试 试看 。 先 创建 一 个 原子 : 


user=> (atom "Split at your own risk.") 
#<AtomQ53f64158: "Split at your own risk."> 


接着 ， 绑 定 原 子 : 


user=> (def danger (atom "Split at your own risk.")) 
# USer/danger 

user=> danger 

#<Atom@Q3a56860b: "Split at your own risk."> 

user=> @Qdanger 

"Split at your own risk." 


可 以 用 reset! 重 新 绑 定 danger 到 一 个 新 值 上 : 


user=> (reset! danger "Split with impunity") 
"Split with impunity” 

user=> danger 

#<Atom@455fc40c: "Split with impunity"> 
user=> @Qdanger 

"Split with impunity" 


reset 1! 替换 了 整个 原子 , 不 过 首选 的 方法 是 提供 一 个 困 数 来 变换 原子 。 如 果 要 修改 一 个 很 大 
的 向 量 ， 可 以 使 用 swap! 原 地 修改 原子 ， 如 下 所 示 : 


user=> (def top-sellers (atom [])) 

HlTiicAan /+AN_calla 

TT UOCI/ CU 一 二 | 1E@rSs 

user=> (swap! top-sellers conj {:title "Seven Languages in Seven Weeks", :author "Tate"}) 
[{:title "Seven Languages in Seven Weeks ， :author "Tate"}] 

User=> (Swap, top-sellers Con] {:title "Programming Clojure” :author "Halloway"}) 


「 了 .十 十] "Cav /en | anAiiaAAac 1n Cav /en WeeKSs” = uthor TTata''l 
LirUiUiC JeVe La 1IgUOQSLCD> 1 SCVvECI GeKS ， -QULi ICLCL } 




















{:title "Programming Clojure", :author "Halloway"}] 


和 引用 一 样 ， 一 次 创建 好 值 ， 然 后 用 swap! 来 修改 。 让 我 们 来 看 一 些 实用 例子 。 
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构建 原子 缓存 

现在 ,你 已 经 见 过 引用 和 原子 。 等 我 们 学 习 Haskell 时 你 还 会 见 到 同样 的 通用 编程 哲学 。 将 一 
小 块 状态 封 痛 成 包 ， 而 后 用 另 数 来 修改 。 修 改 引 用 需要 事务 ， 原 子 不 需要 。 接 下 来 构建 一 个 简单 
的 原子 绥 存 。 这 个 问题 很 适合 用 原子 解决 。 用 散 列 来 关联 名字 和 值 就 行 。 要 感谢 Stuart Halloway of 
Relevance 提供 这 个 例子 ， 它 是 一 家 提供 Clojure 培 训 和 咨询 的 公司 。 

我 们 需要 先 创建 一 个 缓存 ， 然 后 创建 癌 绥 存 里 添加 元 率 的 困 数 以 及 从 绥 存 里 删除 元 素 的 项 
数 。 首 先是 创建 缓存 : 


clojure/atomcache.cj 
































(defn create 
[] 
(atom {})) 


这 里 只 是 简单 地 创建 了 一 个 原子 , 由 这 个 类 的 用 户 来 绑 定 它 。 接 下 来 ， 需 要 能 根据 缓存 的 键 
狂 取 元 素 : 


(defn get 
[cache keyj 
(Qcache key)) 


痕 数 以 缓存 和 键 作为 参数 。 缕 存 是 一 个 原子 ， 因 此 需 对 其 解 引 用 ,然后 返回 与 键 相关 联 的 元 
系 。 最 后 ， 还 需要 能 往 缕 存 里 放 入 元 系 的 汕 数 : 
(defn put 
([cache value-map] 
(swap! cache merge value-map)) 
([cache key valuel 
(swap! cache assoc key value))) 


我 们 定义 了 两 个 不 同 的 函数 put。 第 一 个 版 本 用 merge， 使 我 们 能 够 将 一 个 映射 表 中 的 所 有 
关联 全 部 加 入 进 缓存 。 第 二 个 版 本 使 用 assoc 来 添加 一 对 键 和 值 。 下 面 使 用 缓存 。 我 们 和 添加 一 
个 元 系 到 缓存 中 ， 然 后 再 返回 它 : 


(def ac (create)) 
(put ac :quote "I'm your father, Luke.™") 
(println (str "Cached item: " (get ac :quote))) 


输出 是 : 

Cached item: Im your father, Luke. 

同步 情况 下 ,原子 和 引用 都 是 处 理 可 变 状态 既 休 单 又 安全 的 方法 。 在 下 面 的 小 市 里 , 我们 会 
看 几 个 异步 的 例子 。 


7.4.3 ”使 用 代理 
像 atom 一 样 ， 代 理 也 是 封装 起 来 的 一 份 数据 。 与 To 中 的 future 相 似 ， 解 引用 后 的 代理 会 一 直 



































GD 参见 http:/www.thinkrelevance.com。 一 一 原 书 注 
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阻塞 直到 有 值 可 用 。 使 用 者 可 以 用 六 数 异步 修改 数据 ， 而 更 新 会 在 另 一 个 线程 中 发 生 。 每 次 只 有 
一 个 函数 能 修改 代理 的 状态 。 

来 试 试看 。 定 义 一 个 函数 叫 twice， 它 将 传人 值 放 大 两 倍 : 

user=> (defn twice [x] (x 2 x)) 

# USer/twice 


接 下 来 ， 定 义 一 个 叫 tribb1les 的 代理 ， 初 始 值 为 1; 
user=> (def tribbles (agent 1)) 

# USser/tribbles 

现在 ， 可 以 通过 给 代理 发 送 一 个 值 来 修改 tribbles: 
user=> (send tribbles twice) 

#<Agent@554d7745: 1> 


这 个 函数 会 在 为 一 个 线程 上 执行 。 我 们 来 取出 代理 的 值 : 
user=> Qtribbles 
2 


从 引用 、 代 理 、 或 原子 中 读 取 值 永 远 部 不 会 锁定 也 永远 不 会 阻 窒 。 读 应 该 尽 可 能 快 ， 有 了 
正确 抽象 的 封 滩 ， 克 ® 能 做 到 这 点 。 用 下 面 这 个 函数 ， 你 就 能 看 出 从 代理 读 取 到 的 各 个 值 之 间 的 














区 别 了 : 
user=> (defn slow-twice [xj 
(do 
(Thread/sleep 5000) 
(* 2 x))) 


#"'USer/slow-twice 

user=> @tribbles 

2 

user=> (send tribbles slow-twice) 
#<Agent@554d7745: 16> 

user=> @tribbles 

2 


USEr=> ，5 秒 后 再 执行 
user=> @tribbles 
4 


别 过 分 纠结 于 语法 。(Thread/sleep 5000) 就 是 调用 Java 中 Thread 的 sleep 方 法 。 现 在 专注 
到 代理 的 值 上 。 

我 们 定义 了 一 个 需要 5 秒 钟 才 能 完成 的 慢 节 故 版 twice 图 数 。 这 样 就 有 足够 时 间 观 察 repl 中 
Qtribbles 随 时 间 推 移 的 变化 。 

所 以 ， 你 一 定 能 得 到 一 个 tribbles 值 。 但 在 你 的 线程 上 有 可 能 拿 不 到 最 新 的 修改 。 如 采 需 
要 确保 在 自己 的 线程 里 得 到 最 新 值 ， 可 以 调用 (Cawait tribbles) 或 者 (awaitfor timeout 
tribbles)， 其 中 timeout 是 以 训 秒 为 单位 的 超时 时 间 。 记 住 ， 在 处 理 完 来 自 线 程 的 动作 之 前 ， 
await 和 awaitfor 会 一 直 阻 紧 。 但 这 里 并 没 提 到 其 他 线程 可 能 要 求 该 线程 所 做 的 事情 。 你 无 法 
得 到 最 新 的 值 。 因 为 Clojure 工 具 涉 及 使 用 快照 ， 其 值 是 瞬时 的 ， 并 且 很 有 可 能 立即 过 期 。 这 正 
是 版 本 数据 库 进行 快速 并 发 控制 的 方式 。 
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7.4.4 future 


在 Java 里 ， 可 以 直接 启动 线程 来 完成 指定 任务 。 当 然 ， 你 可 以 以 这 种 方式 通过 Java 集 成 来 启 
动 一 个 线程 ,不 过 总 有 更 好 的 办 法 。 比 方 说 你 想 创 建 一 个 线程 来 处 理 复杂 计算 ， 可 以 用 代理 。 又 
或 者 ， 如 果 你 想 开 始 计算 某 个 值 ， 但 不 想 等 待 结果 。 像 在 Io 中 一 样 ， 可 以 使 用 foture。 我 们 来 看 
下 面 的 示例 。 

首先 创建 一 个 future， 这 个 future 立 即 返回 一 个 引用 : 


User=> (def finer-things (future (Thread/sleep 5000) “take time")) 
# "User/finer-things 

user=> @finer-things 

"take time”™ 


根据 你 打字 的 速度 ， 你 可 能 逢 要 等 一 下 结果 才 返 回 。future 接 受 一 或 多 个 表达 式 ， 并 返回 最 
后 一 个 表达 式 的 值 。future 在 为 外 一 个 线程 中 局 动 。 如 来 对 其 解 引用 ， 则 值 可 用 之 前 ，future 会 一 
下 阻塞 。 

所 以 ，fnture 是 允许 在 计算 完成 前 异步 返回 的 并 发 编程 结构 。 用 future 可 以 让 多 个 需要 长 时 间 
运行 的 水 数 并 行 执行 。 
































7.4.5 ”还 到 什 么 


Clojure 是 一 种 Lisp 方 言 ， 而 Lisp 本 里 就 是 一 种 内 容 极 其 丰 户 的 语言 。Clojure 基 于 JVM， 其 发 
展 历程 已 经 超过 10 年 。 这 门 语 言 还 混和 了 一 些 新 的 、 强 大 的 概念 ， 要 用 一 本 书 的 其 中 一 草 来 完整 
介绍 Clojure 是 不 可 能 的 。 还 有 一 些 你 应 该 了 解 的 内 容 。 

1. 元 数据 

有 了 时, 你 会 很 高 兴 能 在 类 型 上 关联 一 些 元 数据 。Clojure 允 许 在 符 写 和 集合 上 附加 并 访问 元 数 
据 。(with-meta value metadata) 返 回 一 个 与 netadata 关 联 的 新 的 value， 通 常 是 用 映射 表 实 
现 的 。 

2. Java 集 成 

Clojure 有 非常 出 色 的 Java 集 成 。 我 们 零散 地 提 了 一 些 Java 集 成 的 内 容 , 然 后 还 创建 了 一 个 JVM 
上 的 类 型 。 但 是 完全 没有 用 到 已 有 的 Java 类 库 。 我 们 也 没 全 面 介 绍 Java 兼 容 形 式 ， 举 个 例子 ， 
(.toUpperCase "Fred") 会 调用 字符 串 "Fred "的 成 员 困 数 toUpperCase。 

3. 多 重 方法 

面 癌 对 象 语言 只 允许 一 种 组 织 行为 和 数据 的 方式 。Clojure 提 供 多 重 方法 ( multimethods ) 允许 
你 创建 自己 的 代码 组 织 方 式 。 你 可 以 把 一 个 库 的 所 有 哺 数 和 一 个 类 型 关联 起 来 , 也 可 以 用 多 重 方法 
来 实现 多 态 , 依据 类 型 、 元 数据 、 参 数 甚 至 是 属性 来 进行 方法 调度 ( method dispatch )。 这 个 概念 很 
强大 、 很 灵活 。 比 如 说 ， 完 全 可 以 实现 Java 风 格 的 继承 、 原 型 继承 ,或 者 某 种 完全 不 同 的 东西 。 

4. 线程 状态 

Clojure 为 各 种 并 发 模型 提供 了 原子 、 引 用 和 代理 。 有 时 , 需要 在 每 个 线程 实例 中 分 别 存储 数 
据 。Clojure 提 供 了 vars， 可 以 非常 容易 地 完成 这 个 工作 。 举 个 例子 ，(binding [name 





























图 灵 社 区 会 员 LorraineMeillorrainemei@gmail.com) 专 享 尊重 版 权 


7.$ 趁 热 打铁 201 
"value"] .. .) 会 将 name 绑 定 到 "value" 上 ， 且 仅 对 当前 线程 绑 定 。 
7.4.6 ”第 三 天 我 们 学 到 了 什么 


今天 ， 我 们 浏览 了 几 种 并 发 结构 ， 介 绍 了 儿 种 有 趣 的 并 发 结构 。 

引用 文 持 在 实现 可 变 状态 的 同时 还 保持 各 线程 间 的 一 致 性 。 我 们 使 用 的 是 STM， 即 软件 事务 
内 存 。 从 我 们 的 角度 来 看 ， 就 是 要 把 所 有 对 引用 的 修改 置 于 事务 中 ， 表 示 为 使 用 也 数 dosync。 

接 下 来 ,我 们 使 用 了 原子 , 一 种 轻 量 级 的 并 发 结构 ,保护 更 少 但 使 用 模型 更 人 简单。 我 们 在 事 
务 之 外 修改 了 一 个 原子 。 

最 后 ， 我 们 用 代理 实现 了 一 个 池 ， 它 可 用 于 执行 长 时 间 计 算 。 代 理 与 Io 的 actor 不 同 ，Clojure 
可 以 用 任意 因数 来 修改 代理 的 值 ， 代 理 也 会 及 时 返回 快照 ， 一 个 随时 都 有 可 能 被 改变 的 值 。 




















7.4.7 第 三 天 自习 


在 第 二 天 里 , 我 们 重点 介绍 高 阶 抽象 编程 。 第 三 天 我 们 迎 来 了 Clojure 中 的 并 发 编程 结构 。 在 
以 下 的 练习 中 ， 你 将 会 运用 所 学 内 容 。 
找 

口 一 个 队列 实现 ， 队 列 为 空 时 阻塞 并 等待 新 的 元 又 加 入 。 
做 

口 使 用 引用 在 内 存 中 创建 一 组 账户 的 回 量 ， 实 现 用 于 修改 账户 余额 的 借贷 旺 数 debit 和 

Credit。 

接 下 来 ， 我 会 描述 一 个 称 之 为 理发 师 问题 (sleeping barber ) 的 题目 ， 它 是 由 Edsger Dijkstra 
于 1965 年 提出 的 ， 特 点 如 下 : 

口 理发 店 接待 顾客 ; 

口 顾客 到 达 理 发 店 的 时 间 间 隔 随机 ， 范 围 10~30 至 秒 ; 

口 理发 店 的 等 待 室 里 有 三 把 椅子 ; 

口 理发 店 只 有 一 位 理发 师 和 一 把 理发 椅 ; 

口 当 理 发 椅 为 空 时 ， 一 位 顾客 坐 上 去 ， 叫 醒 理 发 师 ， 然 后 理发 ; 

口 如 有 果 所 有 椅子 都 被 占用 ， 新 来 的 顾客 就 会 离开 ; 

口 理发 需要 20 毫 秒 ; 

口 完成 理发 后 ， 顾 客 会 起 喘 离开 。 

实现 一 个 多 线程 程序 来 决定 一 个 理发 师 在 10 秒 内 可 以 为 多 少 位 顾客 理发 。 


7.5” 趁 热 打 铁 


Clojure 结 合 了 Lisp 方 言 的 力量 和 JVM 的 便利 。 从 JVM 这 边 ，Clojure 受 益 于 已 有 社区 、 部 署 平 
台 和 代码 库 。 作 为 Lisp 方 言 ，Clojure 也 有 相应 的 优势 和 劣势 。 
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7.5.1 Lisp 悖 论 








Clojure 可 能 是 本 书 中 最 强大 灵活 的 语言 。 多重 方 法 文 持 多 种 编程 范 型 的 代码 ,而 宏 允 许 你 动 
态 地 重 定 义 语 言 。 这 本 书 里 再 没有 第 二 种 域 言 能 提供 如 此 强大 的 组 合 。 这 种 灵活 性 已 经 被 证 明 是 
一 种 不 可 思议 的 力量 。 在 《黑客 与 画家 》 一 书 中 ，Graham 回 顾 了 一 个 创业 公司 如 何 利 用 Lisp 发 挥 
出 其 他 供应 商 难 以 企及 的 生产 力 的 故事 。 一 些 新 兴 顾 问 也 采取 同样 的 做 法 , 打 财 Clojure 将 会 提供 
其 他 语言 无 法 比拟 的 生产 力 和 质量 优势 。 

Lisp 的 灵活 性 也 可 以 成 为 其 弱点 所 在 。 宏 展开 在 专家 手 里 是 强大 的 特性 ,但 如 采 考 虑 不 周 就 
很 可 能 导致 严重 的 灾难 。 同 样 ， 也 只 有 最 熟练 的 程序 员 才 可 以 不 费 歇 灰 之 力 就 在 些许 Lisp 代 码 中 
使 用 许多 强大 的 抽象 。 

为 了 能 正确 地 评 佑 Clojure， 你 需要 了 解 Lisp， 同 时 也 包括 Java 系 统 其 他 独特 的 方面 ， 以 及 其 
语言 中 新 的 独 有 特性 。 让 我 们 来 更 深入 地 探讨 一 下 Clojure 的 核心 优势 。 


7.5.2 ”核心 优势 





成 为 下 一 个 Java 虚 拟 机 上 最 流行 的 语言 ，Clojure 属 于 这 一 目标 中 为 数 不 多 的 贡 争 语言 之 一 。 
它 有 很 多 理由 成 为 一 个 强 有 力 的 候选 者 。 
1. 优秀 的 Lisp 方 言 
Tim Bray， 编 程 语言 专家 和 超级 博 主 ， 在 Eleven Theses on Clojure" 一 文中 称 Clojure 是 一 种 优 
秀 的 Lisp 方 言 , 事实 上 , 他称 Clojure 为 “有 史 以 来 最 好 的 Lisp 方 言 "。 我 同意 Clojure 是 一 种 优秀 的 
Lisp 方 言 。 
在 本 章 中 ,你 已 经 读 过 了 Rich Hickey 认 为 的 “是 什么 让 Clojure 成 为 一 个 优秀 的 Lisp 方 言 ” 的 
讨论 ， 概 括 如 下 。 
口 减少 括号 。 通 过 开 屏 一 丁点 儿 新 语法 ，Clojure 改 进 了 可 读 性 ， 这 包括 问 量 用 方 括号 ， 映 
射 表 用 大 括号 和 set 所 使 用 的 字符 组 合 。 
口 生态 系统 。Lisp 的 许多 方言 都 在 一 件 事 上 有 所 葡 协 , 即 提供 所 有 方言 都 可 用 的 文 持 和 类 库 。 
讽刺 的 是 ， 再 增加 一 种 方言 却 又 能 改善 这 一 问题 。 建 于 JVM 之 上 使 得 Clojure 可 以 充分 受 
益 于 Java 语 言 中 大 量 优雅 的 类 库 集合 。 
口 克制 。 通 过 实践 克制 并 限制 Clojure 语 法 以 避免 宏 该 取 需 ，Hickey 限 制 了 Clojure 的 力量 ， 同 
时 有 效 地 降低 了 出 现 有 害 的 方言 碎片 的 可 能 性 。 
你 可 能 就 是 单纯 地 欣赏 Lisp 这 门 编程 语言 本 身 。 那 从 这 点 说 ， 可 以 把 Clojure 当 作 是 一 种 新 的 
Lisp 来 了 解 。 从 这 个 层面 上 看 ，Clojure 是 成 功 的 。 
2. 并 发 支持 
Clojure 的 并 发 之 路 有 可 能 彻底 改变 了 我 们 设计 并 发 系统 的 方式 。STM 由 于 其 新 家 性 确实 可 能 
会 给 开发 者 市 来 一 定 的 负担 , 但 这 是 头 一 回 , 语言 通过 检测 状态 改变 是 否 发 生 在 ( 受 适 当 保 护 的 ) 
国 数 内 来 保护 开发 者 。 如 采 不 在 事务 里 ， 就 不 能 修改 状态 。 





























GD http://www.tbray.org/ongoing/ When/200x/2009/12/01/Clojure-Theses。 一 一 原 书 注 
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3. Java 集 成 

Clojure 有 非常 好 的 Java 集 成 。 它 透明 地 使 用 了 诸如 字符 串 和 数字 等 一 些 本 地 类 型 。Clojure 的 
之 点 在 于 支持 和 JVM 紧 密集 成 ， 因 此 使 得 Clojure 类 型 可 以 完全 参与 到 Java 应 用 中 。 很 快 你 就 会 明 
日 Clojure 目 身 的 很 多 部 分 都 是 在 JVM 上 实现 的 。 

4. 延迟 计算 

Clojure 增 加 了 强大 的 延 色 计算 特性 。 延 迟 计 算 可 以 帮助 简化 问题 。 你 只 是 简单 地 体验 了 一 把 
延迟 序列 影响 解决 问题 的 方式 。 通 过 将 计算 推 返 到 实际 需要 时 才 执 行 ， 或 者 干脆 避 倪 执行 ,延迟 
序列 可 以 显著 减少 计算 开销 。 最 后 , 延 开 问题 提供 了 解决 困难 问题 的 又 一 项 工具 。 可 以 用 延 色 序 
列 代 蔡 递归 、 和 迭代 或 者 已 实现 的 集合 。 

5. 数据 即 代码 

程序 就 是 列表 。 像 其 他 任何 Lisp 一 样 ， 你 可 以 把 数据 当 作 代码 。 使 用 Ruby 时 ， 我 注意 到 了 用 
程序 写 程 序 的 价值 。 我 认为 对 任何 编程 语言 来 说 ， 这 都 是 最 重要 的 能 力 。 拯 数 式 程序 通过 高 阶 消 
数 提供 元 编程 。Lisp 将 这 个 想法 进一步 扩展 ， 把 数据 当 作 代 码 求 值 。 


7.5.3 不 足 之 处 


Clojure 是 一 门 坚 定 以 通用 编程 语言 为 目标 的 语言 。 它 是 否 真 的 能 在 JVM 上 获得 广泛 成 功 还 
待 检验 。Clojure 有 很 多 美妙 的 抽象 , 但 要 真正 接受 并 安全 有 效 地 使 用 这 些 特性 , 需要 程序 员 具 
很 高 的 教育 水 平和 天 赋 。 以 下 列举 出 我 认为 的 一 些 不 足 之 处 。 

1. 前 缀 表达 法 

将 代码 表示 为 列表 形式 是 Lisp 最 强大 的 特性 之 一 ,但 也 有 代价 ， 即 前 级 表示 法 "。 典 型 的 面 
问 对 和 象 语言 语法 与 之 差异 极 大 。 要 调整 适应 前 级 表示 法 并 不 容易 。 它 需要 更 好 的 记忆 力 , 并 且 要 
求 开发 者 由 内 癌 外 地 理解 代码 ， 而 不 是 由 外 癌 内 。 有 时 ,我 觉得 阅读 Clojure 代 码 迫 使 我 过 早 地 去 
了 解 过 多 细节 。 好 处 是 ，Lisp 语 法 锻 陈 了 我 的 短期 记忆 。 刁 处 难关 志 在 过 ， 万 千 峻 险 终 有 尺 。 

2. 可 读 性 

数据 及 代码 的 另 一 个 成 本 就 是 多 得 令 人 压抑 的 括号 。 为 人 和 为 计算 机 优化 完全 不 是 一 回 事 。 
括号 的 位 置 和 数量 仍然 是 一 个 问题 。Lisp 开 发 者 高 度 依 赖 编 辑 妖 提供 的 括号 匹配 反馈 , 但 是 工具 
永远 不 能 完全 掩盖 可 该 性 问题 。 感 谢 Rich 对 这 个 问题 所 作出 的 改进 ， 但 这 仍 是 一 个 问题 。 

3. 学 习 曲 线 

Clojure 内 容 丰 富 , 但 是 其 学 习 曲 线 计 人 感到 诅 丧 。 你 需要 一 队 极 有 天 赋 和 经 验 的 人 马 才能 
Lisp 开 展 工 作 。 延 到 序列 、 肯 数 式 编程 、 安 扩展 ， 事 务 内 存 以 及 精密 复杂 的 方法 ， 所 有 这 些 都 是 
震 要 时 间 才 能 掌握 的 强大 概念 。 

4. 受 限 的 Lisp 

所 有 的 妥协 都 有 其 代价 。 由 于 在 JVM 上，Clojure 限 制 了 尾 递 归 优 化 ，Clojure 程 序 员 必 须 用 可 
怕 的 recur 语 法 。 不 信和 就 试 试看 分 别 用 递归 和 1oopyrecur 来 实现 返回 序列 x 长 度 的 函数 (size x)。 
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J Clojure 确 实 有 从 左 疝 右 宏 ，->> 和 ->， 它 们 能 稍微 缓解 一 些 问 题 。 
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消灭 用 户 定 义 的 宏 读 取 需 也 是 一 个 典型 的 例子 。 好 处 很 明显 ,， 宏 读 取 需 被 滥用 时 ， 可 以 导致 
语言 分 裂 。 代 价 也 很 明显 ， 你 又 失去 一 样 元 编程 工具 。 

5. 杀 和 度 

Ruby 以 及 早期 Java 最 美的 方面 之 一 就 是 它们 作为 编程 语言 的 亲 和 度 ， 这 两 种 语言 都 相对 人 简 
单 易 学 。Clojure 则 对 开发 者 提出 了 极 大 的 要 求 ， 它 包含 了 太 多 的 抽象 工具 和 概念 ， 有 时 让 人 不 
堪 重 人 负 。 














7.5.4 最 后 思考 


Clojure 的 优势 和 缺点 大 部 分 和 它 的 力量 与 灵活 性 有 关 。 的 确 , 你 可 能 需要 非常 努力 才能 学 会 
Clojure。 事 实 上 ， 如 有 果 你 是 一 名 Java 开 发 者 ， 那 你 已 经 很 努力 了 。 你 已 经 花 挥 了 自己 的 时 间 去 掌 
握 Java 应 用 层 的 各 种 抽象 。 你 和 希望 通过 Spring 或 者 面 回 方 面 编 程 获得 松 耦 合 。 你 只 是 没 能 从 语言 
层面 附带 的 灵活 性 中 充分 受益 。 对 很 多 人 来 说 ,这 种 权衡 起 过 作用 。 原 谅 我 大 胆 地 推测 , 来自 并 
发 和 复杂 性 的 新 需求 会 继续 使 Java 平 台 越 来 越 难以 为 继 。 

如 果 你 需要 一 种 极端 的 编程 模型 并 且 愿 意 付出 学 习 语 言 的 代价 ，Clojure 非 常 合适 。 我 认为 ， 
如 采 你 的 团队 成 员 受 过 严格 的 训练 , 并且 和 希望 扩大 影响 ,那么 Clojure 是 一 种 很 有 利用 价值 的 语言 。 
你 可 以 用 Clojure 更 快 地 创建 出 更 好 的 软件 。 
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Haskell 


遇 辑 是 草地 上 几 只 层 野 作 声 的 小 鸟 在 鸣叫 。 

——Spock 
对 于 很 多 函数 式 编程 的 忠实 拥 熏 来 说 ，Haskell 象征 着 纯洁 和 自由 。 它 的 功能 丰富 有 日 强大 ， 
但 拥有 这 些 功 能 是 需要 付出 一 定 代价 的 。 你 不 可 能 轻易 地 就 掌握 这 门 声言 ， 因 为 Haskell 会 迫使 
你 去 了 解 关 于 孔 数 式 编 程 的 全 部 内 容 。 想 想 《 星 际 迷 航 》 的 Spock 吧 ， 他 上 面 说 的 那 句 话 " 很 有 代 
表 性 ， 完 美 地 结合 了 逮 辑 和 真理 。 他 性 格 中 拥有 的 那 种 坚定 的 纯洁 性 ,这 使 他 得 到 了 几 代 人 的 爱 
戴 。 当 S$cala、Erlang 和 Clojure 还 允许 你 少量 使 用 命令 式 编程 概念 的 时 候 ，Haskell 却 没有 留 下 任何 
的 回旋 余地 。 在 使 用 Haskell 做 IO 操作 或 状态 累积 (accumulate state ) 时 ,你 将 遇 到 这 门 纯 函数 语 
言 所 寓 来 的 挑战 。 

















8.1 Haskell 简介 


和 以 往 一 样 ， 如 果 想 了 解 一 门 语言 为 何 包含 那些 受 协 方案， 就 应 该 从 它 的 历史 开始 。 在 20 
世纪 80 年 代 中 前 期 , 纯 函数 编程 领域 涌现 出 了 多 门 语 言 。 纯 函数 式 编程 和 我 们 曾 在 Clojure 语 言 中 
见 到 过 的 惰性 处 理 ( lazy processing ) 等 关键 概念 引领 着 新 研究 的 方向 。1987 年 的 “函数 式 编 程 
语言 与 计算 机 体系 结构 大 会 ”( Functional Programming Languages and Computer Architecture ) 成 
六 了 一 个 小 组 , 决定 建立 一 个 关于 纯 函数 编程 语言 的 开放 标准 。Haskell 就 出 自 于 这 个 小 组 , 它 于 
1990 年 诞生 并 于 1998 年 重新 修订 。 目前 的 标准 是 Haskell 98, 经 过 多 次 修订 , 包括 一 份 Haskell 98 标 
准 的 修订 版 和 一 个 称 为 Haskell Prime 的 新 版 本 定义 。 

此 ,Haskell 是 一 门 从 开始 就 按照 纯 函 数 式 编程 思想 构建 的 语言 , 它 结合 了 一 些 最 好 的 限 数 
式 语言 思想 ， 并 看 重 于 文 持 惰性 人 处理。 

和 Scala 一 样 ，Haskell 也 是 一 门 强 类 型 定义 的 娘 态 类 型 语言 。 它 的 类 型 模型 基于 推断 理论 
( inferred ) 并 被 公认 为 是 函数 语言 中 最 高 效 的 类 型 系统 之 一 。 你 会 发 现 该 类 型 系统 文 持 多 人 态 语 义 
并 有 助 于 人 们 作出 十 分 整洁 清晰 的 设计 。 


























GD Star Trek:The Original Series 第 41 集 (I，Mudd ) 和 第 42 集 ( The Trouble with Tribbles )， 导 演 : Marc Daniels ( 1967 
年 )。 发 行商 : 加 利 福 尼 亚 州 伯 班 元 哥伦比亚 广播 公司 (0CBS )， 泪 拉 蒙 电视 网 ( 2001 年 )。( 译 者 注 : 这 部 电视 系 
列 剧 中 译名 为 《星际 迷航 》， 是 一 部 科幻 题 材 的 电视 剧 ， 描 述 的 是 一 个 乐观 的 未 来 世界 。Spock 是 剧 中 受 欢 迎 的 角 
色 之 一 。 他 是 瓦 肯 - 人 类 混血 儿 ， 因 为 如 此 ， 他 不 断 在 严肃 的 瓦 肯 逻 辑 教育 与 人 类 感情 之 间 挣 扎 。) 
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Haskell 也 可 以 文 持 你 在 本 书 中 已 经 看 到 的 一 些 概念 。Haskell 文 持 Erlang 风 格 的 模式 匹配 
( pattern matching ) 和 哨兵 表达 式 。 你 也 能 在 Haskell 中 发 现 Clojure 以 格 的 惰性 求 值 (lazy evaluation ) 
以 及 与 Clojure 和 Erlang 相 同 的 列表 推导 语法 。 

作为 一 门 纯 函 数 式 编 程 语 言 ，Haskell 不 会 产生 副作用 。 然 而 , 一 个 Haskell 函 数 却 可 以 返回 一 
个 有 副作用 并 且 会 被 延迟 执行 。 你 将 在 第 三 天 的 学 习 中 看 到 一 个 关于 这 方面 内 容 的 例子 。 在 另外 
一 个 使 用 monad 概 念 保存 状态 的 例子 中 你 也 可 以 看 到 相关 内 容 。 

头 两 天 ， 本 书 会 市 你 学 习 一 些 典 型 的 函数 式 编程 概念 ， 诸 如 表达 式 、 定 义 也 数 、 高 阶 函 数 ， 
等 等 。 我 们 也 将 深入 Haskell 的 类 型 模型 ， 你 会 了 解 到 一 些 新 概念 。 第 三 天 的 学 习 会 让 你 大 开眼 
界 ， 我 们 将 学 习 参 数 化 的 类 型 系统 和 monad 等 一 些 比 较 难 以 掌握 的 概念 。 让 我 们 开始 吧 。 


8.2 第 一 天 : 逻辑 


正如 Spock 那 样 ， 你 会 发 现 Haskell 的 核心 概念 很 容易 掌握 。 你 需要 严格 地 定义 限 数 ， 对 于 相 
同 的 输入 参数 ， 每 次 你 都 会 得 到 相同 的 输出 结果 。 我 会 使 用 GHC， 即 Glasgow Haskell 编译 内， 
6.12.1 版 本 。 它 可 以 运行 在 多 个 平台 上 。 你 也 可 以 找到 并 使 用 其 他 Haskell 编译 器 。 和 以 往 一 样 ， 
我 们 在 控制 台中 输入 ghci: 


GHC1, version 6.12.1: http://ww.haskell.org/ghc/ :? for help 


























Loading package ghc-prim ... linking ... done. 
Loading package 1integer-gmp ... linking ... done. 
Loading package base ... linking ... done. 
Loading package ff1i-1.0 ... linking ... done. 


你 会 看 到 Haskell 解释 占 先 加 载 了 几 个 包 ， 然 后 你 就 可 以 输入 命令 了 。 


8.2.1 表达 式 和 基本 类 型 


我 们 将 在 稍 后 讨论 Haskell 的 类 型 系统 。 在 本 小 节 中 , 我们 将 集中 介绍 基本 类 型 的 使 用 。 和 学 
习 许 多 其 他 语言 一 样 ， 先 从 数字 和 一 些 简 单 的 表达 式 开 始 ,， 并 尽快 地 介绍 更 多 的 高 级 类 型 ， 比 如 

1. 数字 

现在 你 知道 该 怎么 做 了 。 输 入 一 些 表达 式 : 

Prelude> 4 

4 

Prelude> 4+1 

5 

Prelude> 4 + 1.0 

sa0 


Prelude> 4 + 2.0 : 5 
14.0 


操作 的 次 序 也 和 你 期 望 的 一 致 。 
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Prelude> 4*5+1 
21 

Prelude> 4 * (5 + 1) 
24 
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注意 , 你 可 以 使 用 括号 将 多 个 操作 组 合 在 一 起 。 你 已 经 看 到 了 儿 个 数 子 类 型 了 。 让 我 们 再 来 


学 习 一 些 字符 数据 。 
2. 字符 数据 
字符 串 用 双 引 号 表示 ， 就 像 下 面 这 样 : 
Prelude> "hello" 


"hello" 
Prelude> "hello™” + 








world" 


<interactive>:1:0: 
No instance for (Num [Char]) 
arising from a use of ‘+' at <interactive>:1:0-17 
Possible fix: add an instance declaration for (Num [Char]) 
In the expression: "hello” + " world" 
In the definition of ‘it': it = "hello™” + " world" 
Prelude> "hello™” ++ ” world" 
"hello world" 





注意 ， 连 接 两 个 字符 串 使 用 ++ 操 作 符 而 不 是 + 操作 符 。 单 个 字符 可 以 这 样 表示 : 





Prelude> 'a' 
'a 
Prelude> ['a', "bj 

TT ab" 

注意 ， 字 符 串 只 是 一 个 字符 列表 。 我 们 再 来 简单 学 习 一 些 布尔 值 吧 。 
3. 布尔 类 型 

















布尔 类 型 是 男 外 一 种 基本 类 型 ， 它 的 使 用 方式 与 本 书 中 其 他 中 级 记号 语言 
下 面 的 相等 表达 式 和 不 等 表达 式 都 返回 布尔 值 : 

Prelude> (4 + 5) == 9 

True 

Prelude> (5 + 5) /= 10 

False 


尝试 一 个 if/then 语 句 : 


Prelude> i1if (5 == 5) then “true”" 








<interactive>:1:23: parse error (possibly incorrect indentat1ion) 


的 布尔 类 型 一 致 O 


这 是 Haskell 与 本 书 其 他 语言 的 第 一 个 主要 不 同 点 。 在 Haskell 中 , 缩 进 是 有 特殊 意义 的 .Haskell 











可 以 猜 出 有 一 个 后 续 行 缩 进 不 正确 。 我 们 稍 后 会 看 到 一 些 纺 进 结构 , 不 过 我 们 不 会 讨论 用 于 控制 
缩 进 模式 的 布局 。 只 需要 模仿 你 在 这 里 所 看 到 的 纳 进 方法 ， 就 不 会 遇 到 什么 阻 租 。 让 我 们 看 一 个 











完整 地 使 用 了 if/then/e1se 的 语句 吧 


Prelude> 1f (5 == 5) then “true” else "false" 
"true" 
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在 Haskell 中 ， if 是 一 个 涵 数 ,不 是 一 个 控制 结构 。 这 和 意味 者 它 和 其 他 也 数 一 样 有 返回 值 。 试 
试 给 if 传 一 些 true/false 值 : 

Prelude> 1f 1 then “true" else “false" 

<interactive>:1:3: 


No instance for (Num Bool) 
arising from the literal ‘1' at <interactive>:1:3 


Haskell 是 强 类 型 的 。if 只 严格 地 接受 布尔 类 型 参数 。 接 下 来 , 我 们 让 控制 台 产 生男 一 种 类 型 
冲突 : 

Prelude> "one” + 1 

<interactive>:1:0: 


No instance for (Num [Char]) 
arising from a use of ‘+' at <interactive>:1:0-8 





这 个 错误 消息 让 我 们 第 一 次 筑 视 到 Haskell 的 类 型 系统 。 它 告诉 我 们 “没有 接受 一 个 数字 Num 
和 一 个 字符 串 列 表 [Char] 作 为 参数 且 名 为 + 的 图 数 "。 注 意 ， 我 们 并 没有 告知 Haskell 这 些 参数 是 
什么 类 型 。 这 门 语言 可 通过 上 下 文 的 线索 推断 出 类 型 。 任 何 时 候 ， 你 都 可 以 看 到 Haskell 的 类 型 推 
断 在 做 什么 。 你 可 以 使 用 :t， 也 可 以 打开 :t 选 项 达到 同样 的 目的 ， 像 下 面 这 样 : 


Prelude> :set +t 
Prelude> 5 








5 

it :: Integer 
Prelude> 5.0 
SU 


1t :: Double 

Prelude> "hello" 

"hello" 

Team] 

Prelude> (5 == (2 + 3)) 

True 

1t :: Bool 

现在 ,在 每 个 表达 式 后 ,你 都 可 以 看 到 该 表达 式 返 回 的 类 型 。 不 过 我 需要 提醒 你 , 将 :t 用 于 
数字 会 产生 令 人 困惑 的 结果 ， 这 与 数字 和 控制 台 之 间 的 相互 作用 有 关 。 尝 试用 一 下 :t 函 数 : 

Prelude> :t 5 

5 :: (Num t) =» t 


这 与 之 前 得 到 的 类 型 it :: Integer 不 同 。 探 制 台 会 采取 更 泛 化 的 方式 看 待 数字。 除非 你 打 
开 了 :t 选 项 。 否则 你 将 得 到 一 个 类 ， 而 不 是 一 个 单纯 的 类 型 。 类 是 用 于 描述 一 系列 相似 类 型 的 。 
我 们 将 在 8.4 小 市 中 深入 学 习 类 。 























8.2.2 ”函数 


印 数 是 整个 Haskell 编 程 范 型 的 核心 。 由 于 Haskell 既 是 强 类 型 语言 ， 又 是 静态 语言 ， 因 此 每 个 
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国 数 的 定义 都 包含 两 个 部 分 : 一 个 可 选 的 类 型 规格 说 明和 一 份 函数 的 具体 实现 。 我 们 会 快速 学 习 
那些 你 已 经 在 其 他 语言 中 见 到 过 的 概念 ， 请 跟 紧 点 儿 。 

1. 定义 基本 函数 

Haskell 函 数 按 惯例 通常 包含 两 个 部 分 : 类 型 声明 和 函数 声明 。 

开始 先 在 控制 台 里 定义 函数 ,使 用 1et 函数 将 值 与 实现 绑 定 ,在 定义 一 个 函数 前 , 试 一 下 let。 
和 Lisp 一 样 ， 在 Haskell 中 1et 用 于 在 局 部 作用 域内 将 变量 与 限 数 绑 定 。 


Prelude> let x = 10 
Prelude> x 
10 


当 你 编写 Haskell 模块 时 ， 你 可 以 像 下 面 这 样 声 明 一 个 晒 数 : 

double x=x*2 

然而 在 控制 台 里 ， 我 们 在 局 部 作用 域内 使 用 1et 定 义 一 个 也 数 。 定 义 后 就 可 以 使 用 它 了 。 下 
面 是 一 个 简单 的 double 据 数 的 例子 : 


Prelude> let double x =x*2 
Prelude> double 2 
4 


现在 , 我 们 换 成 在 文件 中 编码 ， 这样 就 可 以 使 用 多 行 定义 了 。 使 用 GHC， 完整 的 double 洱 数 
的 定义 如 下 : 


haskell/double.hs 








module Main where 


double x = X + X 
注意 ， 我 们 增加 了 一 个 名 为 Main 的 模块 。 在 Haskell 中 ， 模 块 用 于 将 相关 代码 放 到 一 个 相同 
的 作用 域 里 。Main 模块 很 特殊 ， 它 是 顶级 的 模块 。 现 在 我 们 把 注意 力 集中 在 double 因数 上 。 在 
控制 台中 加 载 Main 模块 并 像 下 面 这 样 使 用 它 : 
Prelude> :load double.hs 
[1 of 1] Compiling Main ( double.hs, 1interpreted ) 
Ok, modules loaded: Main. 


x*Main> double 5 
10 


到 目前 为 止 , 我 们 还 没有 显 式 定义 一 个 类 型 。 但 Haskell 会 为 我 们 推断 出 每 个 类 型 。 每 个 孙 数 
背后 都 会 有 一 个 隧 含 的 类 型 定义 。 下 面 的 示例 是 一 个 包含 了 类 型 定义 的 函数 : 


haskell/double_with_type.hs 

















module Main where 


double :: Integer -> Integer 
double x = X + X 


可 以 像 之 前 那样 加 载 和 使 用 它 : 
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[1 of 1] Compiling Main ( double with_ type.hs, interpreted ) 
Ok, modules loaded: Main. 

“Main> double 5 

10 


你 可 以 看 到 这 个 新 吨 数 的 类 型 


*Main> :t double 
double :: Integer -> Integer 


这 个 定义 的 含义 是 函数 doub1e 接受 一 个 Integer 类 型 参数 (第 一 个 Integer ) 并 返回 一 个 
Integer 类 型 返回 值 。 

这 个 类 型 定义 是 有 局 限 的 。 如 果 你 回 到 前 面 , 重 温 一 下 那个 无 类 型 版 本 的 doub1e 陈 数 定义 ， 
你 就 会 发 现 一 些 其 他 内 容 : 


“Main> :t double 
double :: (Num a) => a -> a 


现在 ， 类 型 定义 已 经 完全 不 同 。 在 这 个 定义 中 ，a 是 一 个 类 型 变量 。 这 个 定义 的 含义 是 “也 
数 double 接受 一 个 具有 类 型 a 的 变量 作为 参数 ， 并 且 返 回 一 个 具有 同样 类 型 a 的 结果 ”"。 有 了 这 
样 一 个 增强 型 定义 ,我们 就 可 以 将 该 函数 用 于 任何 文 持 + 函数 的 类 型 了 。 让 我 们 开启 这 个 强大 的 
功能 吧 。 我 们 来 看 一 个 关于 阶乘 的 更 有 趣 的 实现 吧 。 

2. 束 归 

先 从 一 个 短小 的 递归 开始 。 下 面 是 一 个 在 控制 侣 里 用 一 行 递 归 实 现 的 阶乘 : 

Prelude> let fact x = ifXx== 0 then 1 else fact (x - 1) * x 


Prelude> fact 3 
6 


这 是 一 个 开始 。 如 果 x 是 0， 那 么 x 的 阶乘 结果 将 是 1， 否 则 结果 为 fact (x - 1) * x。 我 们 可 
以 使 用 模式 匹配 来 编写 出 一 个 更 好 的 阶乘 实现 。 事实 上 , 模式 匹配 的 语法 无 论 是 形式 上 还 是 行为 
上 虱 与 Erlang 的 模式 匹配 如 出 一 办 : 


haskell/factorial.hs 
































module Main where 
factorial :: Integer -> Integer 
factorial 0 1 
factorial x x * factorial (x - 1) 


这 个 定义 有 三 行 代码 ,第 一 行 声 明了 参数 和 返回 值 的 类 型 ,后 两 行 是 两 个 不 同 的 限 数 式 定 义 ， 
采用 哪个 定义 取决 于 对 输入 参数 进行 模式 匹配 的 结果 。0 的 阶乘 是 1， 而 n 的 阶乘 是 factorial x = x 
* factorial (x - 1)。 这 个 定义 看 起 来 很 像 数 学 定义 。 在 这 个 例子 中 ,模式 的 排列 顺序 是 至 
关 重 要 的 。Haskell 会 使 用 第 一 次 匹配 成 功 的 结果 。 如 果 你 想 改 变 模 式 排列 的 顺序 , 你 可 以 使 用 门 
卫 表 达 式 。 在 Haskell 中 ， 哨 兵 表 达 式 是 约束 参数 值 的 条 件 ， 就 像 下 面 这 样 : 


haskell/fact_with_guard.hs 

















module Main where 
factorial :: Integer -> Integer 
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factorial x 
| x>1= x * factorial (x - 1) 
| otherwise = 1 


在 这 个 例子 中 ,哨兵 表达 式 的 左边 是 布尔 值 , 右边 是 得 应 用 于 参数 的 函数 实现 。 当 哨兵 条 件 
得 到 满足 时 ，Haskell 就 会 调用 相应 的 丽 数 。 哨 兵 表 达 式 经 滑 用 来 蔡 代 模式 匹配 ,这 里 用 它 来 初始 
化 递归 的 基本 条 件 。 








8.2.3 ”元 组 和 列表 


正如 你 在 其 他 语言 中 所 看 到 的 那样 ，Haskell 依 徘 尾 圳 归 优 化 蜗 效 地 处 理 递 归 。 接 下 来 看 看 用 
Haskell 实 现 的 几 个 不 同 版 本 的 辈 波 那 契 序列 。 首 和 完 ， 我 们 来 看 一 个 简单 的 例子 : 


haskell/fib.hs 














module Main where 
fib :: Integer -> Integer 


rib 0 =r1 
fib 1 = 1 
fib x eS TD (x 1 Tg (x 2) 


这 很 简单 。fib 0 或 fib 1 都 是 1，fib x 是 fib (x - 1) + fib (x - 2)。 不 过 这 个 解决 
方法 不 够 高 效 。 下 面 来 构建 一 个 更 为 高 效 的 解决 方法 吧 。 

1. 使 用 元 组 编程 

我 们 可 以 使 用 元 组 提供 一 个 更 为 高 效 的 实现 。 元 组 是 拥有 固定 数量 元 素 的 集合 。Haskell 的 元 
组 由 括号 内 以 逗号 分 隔 的 元 素 组 成 。 这 个 实现 使 用 一 系列 连续 的 斐 波 那 揣 数 构 建 元 组 , 并 且 使 用 
计数 可 辅助 进行 递归 操作 。 下 面 是 这 个 基本 的 解决 方法 : 

flibTuple :: (Integer, Integer, Integer) -> (lnteger, Integer, Integer) 


fibTuple (x, y, 0) = (x, y, 0) 
fibTuple (x, y, index) = fibTuple (y, x + y, index - 1) 


fibTup1e 接 受 一 个 三 元 组 作为 参数 , 并 返回 一 个 三 元 组 。 这 里 要 注意 , 用 一 个 三 元 组 作为 一 
个 参数 与 接受 三 个 参数 是 不 同 的 。 要 使 用 这 个 函数 , 用 两 个 数字 0 和 1 开始 递归 。 我 们 还 提供 了 一 
个 计数 融 。 随 着 计数 硕 的 倒数 ,通过 前 两 个 数字 获得 后 续 序 列 中 较 大 的 数字 。fibTuple (0, 1 ,4) 
的 连续 调用 如 下 所 示 : 

。 fibTuple (0, 1, 4) 























e fibTluple (1, 1, 3) 
。fibTuple (1, 2, 2) 
e fibfIuple (2, 3, 1) 


。 fibluple (3, 5, 0) 
你 可 以 像 下 面 这 样 运行 这 个 程序 : 
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Prelude> :load fib tuple.hs 

[1 of 1] Compiling Main ( fib_ tuple.hs, interpreted ) 
Ok, modules loaded: Main. 

x*Main> fibTuple(0, 1, 4) 











(3% 5357 0) 
答案 在 返回 结果 的 第 一 个 元 素 位 置 上 。 我 们 可 以 用 下 面 的 方式 获得 答案 
fibResult :: (Integer, Integer, Integer) -> Integer 


fibResult (x, y, Zz) = 
我 们 刚刚 使 用 模式 匹配 获得 了 第 一 个 位 置 上 的 元 素 ,我 们 可 以 人 简化 这 个 使 用 模型 ,如 下 所 示 : 


fib :: Integer -> Integer 
fib x = fibResult (fibTuple (0, 1, x)) 


文 个 函数 使 用 了 两 个 辅助 函数 构造 了 一 个 快速 韭 波 那 总 序列 生成 太 。 下 面 是 该 程序 的 全 部 
代码 : 


haskell/fib_tuple.hs 








module Main where 
fibTuple :: (Integer, Integer, Integer) -> (Integer, Integer, Integer) 
fibluple (x, y, 0) = (x, y, 0) 
fibTuple (x, y, index) = fibTuple (y, x + y, index - 1) 


fibResult :: (Integer, Integer, Integer) -> Integer 
fibResult (x, y, ZzZ) = 


fib :: Integer -> Integer 
fib x = fibResult (fibTuple (0, 1, x)) 
下 面 是 运行 结 采 ( 立刻 得 到 ): 
x*Main> fib 100 
354224848179261915075 
*Main> fib 1000 


A2AAACCTIAQAAQFTACAADICEAQAQACED 
TITNMOVVII OOUVUITIN TIVUTIIUVUOOIL 


675 371 
40248172908953655541794905189040387984007925516929 
25930803226347752096896232398733224711616429964409 
33187938298969649928516003704476137795166849228875 

让 我 们 尝试 男 外 一 种 使 用 函数 组 合 的 方法 。 

2. 使 用 元 组 和 组 合 

有 时 , 你 需要 将 函数 串联 地 组 合 在 一 起 ,并 将 结果 从 一 个 限 数 传 给 为 一 个 。 下 面 例子 中 我 们 
通过 匹配 tail 的 head 来 获得 列表 的 第 二 个 元 条 : 

x*Main> let second = head . tail 

x*Main> second [1, 2] 

2 

x*Main> second [3, 4, 5] 





Ou 























我 们 刚刚 在 控制 台中 定义 了 一 second = head.tail 等 价 于 second 1st = head 
(tail 1st)。 我 们 将 第 一 个 防 数 的 返回 结果 传 给 男 外 一 个 函数 。 利 用 这 个 特性 实现 了 男 外 一 个 
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斐 波 那 契 序列 。 
和 以 前 一 样 ， 这 次 使 用 一 个 二 元 组 ， 但 没有 使 用 计数 器 : 
fibNextPair :: (Integer, Integer) -> (JInteger, Integer) 


fibNextPair (x, y) = (y, x + y) 

已 知 序列 中 的 两 个 数字 , 就 可 以 计算 出 下 一 个 。 下 面 要 做 的 就 是 递归 地 计算 出 序列 中 的 下 一 
个 什 : 

fibNthpair :: Integer -> (Integer, Integer) 

fibNthPair 1 Ci 

fibNthPpair n fibNextPair (fibNthPpair Cn - 1)) 

基本 情况 是 当 n 为 1 时 值 为 (L，1) 。 由 此 ， 仅 需 根据 上 一 个 值 计 算出 序列 的 下 一 个 元 素 。 这 
样 可 以 得 到 序列 中 由 任意 两 个 数字 组 成 的 二 元 组 : 

x*Main> fibNthPpair (C8) 

(21,34) 

*Main> fibNthpair C9) 

(34,55) 

x*Main> fibNthPpair (10) 

(55,89) 

现在 ,和 镜 下 要 做 的 只 是 匹配 每 个 二 元 组 的 第 一 个 元 系 , 并 将 它们 结合 在 一 起 放 入 一 个 序列 中 。 
我 们 将 使 用 一 个 由 fst 和 fibNthPair 组 成 的 简便 的 函数 组 合 ， 使 用 fst 抓 取 第 一 个 元 素 ， 使 用 
fibNthPair 构 建 一 个 二 元 组 : 


haskell/fib_pair.hs 
































module Main where 
fibNextPair :: (Integer, Integer) -> (Integer, Integer) 
fibNextPair (x, y) = (y, x + y) 


fibNthPair :: Integer -> (Integer, Integer) 
fibNthPair 1 = (1, 1) 
fibNthPair n = fibNextPair (fibNthpair Cn - 1)) 


fib :: Integer -> Integer 
fib = fst . fibNthPair 
换 名 话说， 上述 代码 就 是 用 来 获取 第 n 个 元 组 的 第 一 个 元 素 。 到 此 任务 完成 。 在 用 元 组 完成 
一 些 任务 后 ,下面 我 们 再 用 列表 解决 一 些 问题 吧 。 
3. 人 遍历 列表 
你 在 很 多 语言 中 看 到 过 列表 。 我 不 会 一 味 地 老 调 重 弹 , 不 过 我 会 重 温 一 个 基本 的 递归 例子 并 
介绍 一 些 你 之 前 从 未 见 到 过 的 函数 。 在 任何 一 个 绑 定 操作 过 程 中 都 可 以 将 列表 拆 分 为 head 和 
tail1 两 部 分 ， 就 像 一 条 let 语 句 或 一 个 模式 匹配 . 
BES ME) 2 3 4| 
“Main> h 
1 


x*Main> 七 
[2,3,4] 
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我 们 将 列表 [1，2，3，4] 绑 定 到 Ch:t)。 可 以 把 这 个 构造 看 成 是 你 曾经 在 Prolog 、Erlang 和 


Scala 中 所 见 过 的 headltail1 结 构 。 用 这 种 方式 ， 可 以 进行 一 些 简单 的 递归 定义 。 下 面 是 一 个 列表 
的 sijze 和 prod 郴 数 : 


haskell/lists.hs 


module Main where 
size [] = 0 
size (h:t) = 1 + size +t 


prod [] = 1 
prod (h:t) = h * prod t 


我 将 使 用 Haskell 的 类 型 推 电 处 理 这 些 函 数 的 类 
上 列表 tai1 部 分 的 size。 
Prelude> :load lists.hs 
[1 of 1] Compiling Main 
( lists.hs, interpreted ) 
Ok, modules loaded: Main. 


“Main> size "Fascinating." 
12 


zip 是 一 个 用 于 合并 列表 的 强大 工具 ， 下 面 是 这 个 函数 的 一 个 实例 : 

x*Main> zip "kirk™” "spock" 

[C"kirk","spock")] 

我 们 用 两 个 元 素 构 造 了 一 个 元 组 。 你 也 可 以 将 两 个 列表 合并 在 一 起 ， 像 下 面 这 样 : 
Prelude> zip [ kirk” ， "spock"] [enterprise`， "reliant"] 
[Ckirk™","enterprise"),(("spock","reliant")] 


这 是 一 个 合并 两 个 列表 的 有 效 方法 。 
到 目前 为 止 , 你 在 Haskell 中 看 到 的 特性 与 其 他 语言 拥有 的 特性 非 第 相似 。 现 在, 我 们 将 开始 
学 习 使 用 一 些 更 为 高 级 的 构造 结构 。 你 将 看 到 一 些 高 级 列表 , 包括 范围 ( range ) 和 列表 推导 (list 


comprehension )。 


8.2.4 生成 列表 





型 ， 不 过 意图 是 清晰 的 。 列 表 的 size 就 是 1 加 


























我 们 已 经 看 过 一 些 使 用 递归 处 理 列 表 的 方法 了 。 在 本 节 中 , 我 们 将 介绍 一 些 用 于 生成 新 列表 
的 方法 。 主 要 是 介绍 递归 、 艺 围 以 及 列表 推导 。 

1. 束 归 
用 于 构建 列表 的 最 基本 的 结构 单元 是 :操作 符 , 它 将 head 和 tail1 两 部 分 合并 ,形成 一 个 新 列 
表 。 你 曾经 看 到 过 这 个 操作 符 在 调用 一 个 递归 函数 时 被 逆 回 用 于 模式 匹配 过 程 中 。 

Prelude> let h:t = [1, 2，3] 


Prelude> h 
1 


Prelude> 七 
[233] 
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我 们 也 可 以 将 :用 于 构建 ， 而 不 是 解构 。 
下 面 是 一 个 用 :构建 列表 的 例子 : 


Prelude> 1:[2，3] 
[22331 


记 住 ， 列 表 是 同 构 的 ( homogeneous )。 你 不 能 将 一 个 列表 类 型 元 双 合 并 到 一 个 数字 列表 中 ， 
例如 : 


Prelude> [1]:[2, 3] 





<interactive>:1:8: 
No instance for (Num [t]) 
arising from the literal '3' at <interactive>:1:8 


不 过 ， 你 可 以 将 一 个 列表 类 型 元 系 合并 到 一 个 列表 的 列表 中 ， 或 是 一 个 空 列表 中 . 

Prelude> [1]:[[2], [3, 4]] 

[LL] [21, [3,4]| 

Prelude> [1]:[] 

[[1]] 

下 面 是 列表 构建 的 一 个 实例 。 我 们 想 要 创建 一 个 函数 , 该 吨 数 返回 一 个 由 列表 中 所 有 偶数 构 
成 的 列表 。 实 现 这 个 函数 的 一 种 方式 是 使 用 列表 构建 . 


haskell/all_even.hs 








module Main where 
allEven :: [Integer] -> [Integer] 
allEven [] = [J 
allEven (h:t) = if even h then h:allEven t else allEven 七 
国 数 接受 一 个 整数 列表 作为 参数 ， 并 返回 由 偶数 组 成 的 列表 。 对 空 列 表 调 用 al11Even 将 返回 
空 列表 。 如 采 人 存在 这 样 的 一 个 列表 ， 它 的 head 是 一 个 偶数 ， 则 将 这 个 head 与 对 列表 tai1 部 分 执 
行 a11Even 的 结果 合并 在 一 起 ,如 果 head 是 奇数 , 则 丢弃 它 , 并 返回 对 列表 tai1 部 分 执行 a11Even 
的 结果 。 没 问题 。 接 下 来 看 一 些 其 他 构建 列表 的 方法 。 
2. 范围 与 组 合 
与 Ruby 和 Scala 一 样 ，Haskell 拥 有 作为 一 等 对 象 的 疙 围 ( range ) 和 一 些 支持 冰 围 的 语法 糖 。 
Haskell 提 供 了 一 种 简单 的 表示 范围 的 形式 ， 即 由 一 个 范围 的 两 个 端点 表示 : 
Prelude> [1..2] 
[1,2] 
Prelude> [1..4] 
Elis25354] 
指定 两 个 端点 ，Haskell 会 计算 出 这 个 范围 。 默 认 增 量 为 1。 当 Haskell 使 用 默认 增 量 却 无 法 到 
达 问 点 时 会 发 生 什 么 呢 ? 
Prelude> [10. .4] 
[] 
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你 将 得 到 一 个 空 列表 。 你 可 以 通过 指定 列表 中 的 下 一 个 元 系 来 指定 增 量 : 
Prelude> [10, 8 .. 4] 

[10,8,6,4] 

你 也 可 以 使 用 分 数 : 

Prelude> [10, 9.5 .. 4] 
[10.0,9.5,9.0,8.5,8.0,.7.5,7.0,6.5,06.0,.5.5,5.0,4.5,4.0] 


范围 是 一 种 创建 序列 的 语法 糖 。 序列 不 需要 边界 。 和 Clojure 一 样 ， 你 可 以 获取 一 个 序列 中 的 
一 些 元 素 : 


Prelude> take 5 [1..] 
Ll 2 355| 

Prelude> take 5 [0, 2 ..] 
[0,2,4,6,8] 


我 们 将 在 第 二 天 讨论 更 多 有 关 惰 性 序列 (lazy sequence ) 的 内 容 。 现 在 ， 看 看 男 外 一 种 自动 
生成 列表 的 方法 ， 列 表 推 导 ( list comprehension )。 

3. 列表 推导 

我 们 第 一 次 看 到 列表 推导 是 在 Erlang 那 一 章 中 。 在 Haskell 中 ， 列 表 推 导 的 工作 方式 与 Erlang 
相同 。 在 左 侧 ， 你 会 看 到 一 个 表达 陈 。 在 右 侧 ， 你 会 看 到 生成 硕 和 过 滤 需 ， 就 像 你 在 Erlang 中 看 
到 的 那样 。 我 们 来 看 一 些 例子 。 要 将 一 个 列表 中 的 所 有 元 素 值 加 倍 ， 可 以 这 人 么 做 : 


Prelude> [x 2 | x <- [1L1，2，3]j] 



































[2,4,6] 
这 个 列表 推导 的 含义 是 “采集 x * 2， 其 中 x 来 日 于 列表 [1，2，3]”。 
和 Erlang 一 样 ， 我 们 可 以 在 列表 推导 中 使 用 模式 匹配 。 假 设 用 一 个 由 一 些 点 组 成 的 列表 表示 





一 个 多 边 形 ， 并 且 按 对 角 线 翻转 这 个 多 边 形 ， 只 需要 将 xX 和 y 调 换 位 置 即 可 ， 像 下 面 这 样 : 

Prelude> [ (y, x) | (X，y) <- [(L1，2)，(2，3)，(3，1)]] 

2 

或 者 ， 要 水 平 翻转 多 边 形 ， 可 以 用 4 减 去 x， 像 下 面 这 样 : 

Prelude> [ (4 - X，y) | (X，y) <- [Cl1, 2), (2, 3), (3, 1)]] 

| 

我 们 还 可 以 计算 出 所 有 可 能 的 组 合 。 要 找 出 所 有 可 能 的 由 两 人 组 成 的 先头 部 队 , 而 且 这 两 个 
人 要 来 自 于 Kirk、Spock 或 McCoy 这 组 人 当中 ， 实 现代 码 如 下 所 示 : 

Prelude> let crew = ["Kirk™”, "Spock”, "McCoy"] 

Prelude> [(a, b) | a <- crew, b <- crew] 

[CKirk™,"Kirk™),C"Kirk™”,"Spock™"),(C"Kirk”","McCoy"), 

("Spock™,"Kirk"),("Spock”","Spock"), ("Spock","McCoy"), 

("McCoy™”,"Kirk"), ("McCoy","Spock"), ("McCoy","McCoy")] 

这 个 组 合 几 乎 可 以 工作 , 不 过 这 里 没有 人 列 除 两 个 元 系 重 复 的 情况 。 我 们 可 以 为 列表 推导 增加 
一 个 过 滤 条 件 ， 像 下 面 这 样 : 

Prelude> [(a, b) | a <- crew, b <- crew, a /= bj 

[CKirk™”,"Spock™), ("Kirk","McCoy"),("Spock","Kirk"), 

("Spock™,"McCoy"), ("McCoy","Kirk"), ("McCoy","Spock")] 
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这 个 稍微 好 一 些 , 不 过 没有 关注 元 组 中 元 系 的 次 序 。 我 们 可 以 做 得 更 好 一 点 ， 只 包含 元 系 按 
顺序 排列 的 结果 ， 渡 挥 其 他 结 


Prelude> [(a, b) | a <- crew, b <- crew, a < bj 
[CKirk™,"Spock™"),C"Kirk","McCoy"),("McCoy","Spock")] 


使 用 一 个 短小 简单 的 列表 推导 , 我 们 得 到 了 答案 。 列表 推导 是 一 个 用 于 快速 构建 和 转换 列表 
的 重要 工具 。 





8.2.5 ”Philip Wadler 访 谈 录 


现在 , 你 已 经 看 到 了 一 些 Haskell 的 核心 特性 , 让 我 们 来 看 看 一 位 来 日 Haskell 设 计 委 员 会 的 重 
要 成 员 想 说 些 什 么 。Philip Wadler 是 就 职 于 爱丁堡 大 学 的 一 名 从 事理 论 计算 机 科学 研究 的 教授 ， 
他 不 仅 是 一 位 Haskell 的 积极 贡献 者 ,而 且 还 是 Java 和 XQuery 的 贡献 者 。 此 前 , 他 先后 工作 或 就 读 
于 Avaya 实 验 室 、 贝 尔 实验 室 、 格 拉 斯 哥 大 学 ( Glasgow )、 查 尔 摩 斯 大 学 ( Chalmers )、 牛 津 大 学 、 
卡耐基 梅 隆 大 学 (CMU )、 施 乐 由 洛 阿尔 托 研究 中 心 以 及 斯 坦 福 大 学 。 

Bruce: 你 的 团队 为 什么 要 开发 Haskell? 

Philip: 在 20 世 纪 80 年 代 后 期 ， 有 大 量 不 同 的 团体 进行 了 前 数 式 编程 语言 的 设计 和 实现 。 我 
们 意识 到 大 家 一 起 合作 的 力量 将 比 各 自 为 战 更 强大 。 我 们 最 初 的 目标 有 些 不 那么 谦逊 : 我 们 想 要 
这 门 语言 成 为 研究 的 基础 , 适 于 教学 , 并 能 够 胜任 工业 用 途 。 在 一 篇 名 为 “History ofProgramming 
Languages”( 程序 设计 语言 的 历史 ) 的 论文 中 ， 我 们 详尽 记录 了 这 门 语 言 的 完整 的 历史 。 

Bruce: 关于 这 门 语言 你 最 喜欢 它 思 一 点 呢 ? 

Philip : 我 真 的 很 喜欢 使 用 列表 推导 进行 编程 。 非 常 高 兴 地 看 到 它们 最 终 走 进 了 其 他 语言 
像 Python 。 

类 型 类 ( type class ) 提供 了 一 种 简单 的 泛 型 编程 的 形式 。 你 定义 一 个 数据 类 型 ， 并 且 只 需 加 
上 一 个 derived 关 键 字 ， 就 可 以 得 到 诸如 值 比 较 、 与 字符 串 相 互 转 换 等 例 程 。 我 发 现 这 种 形式 非 
常 方便 ， 我 在 使 用 其 他 语言 时 也 很 想念 这 种 形式 。 

任何 一 门 优秀 的 编程 语言 实际 上 都 会 变 成 一 种 扩展 自己 的 手段 , 它 通过 误 入 其 他 适合 特定 任 
务 的 语言 的 方式 扩展 自己 。Haskell 尤 其 适合 作为 一 个 说 入 其 他 语言 的 工具 。 情 性 机 制 、lambda 
表达 式 、monad 和 箭头 记号 、 类 型 类 、 表 达 性 优异 的 类 型 系统 以 及 模板 ，Haskell 支 持 用 各 种 不 同 
的 方式 实现 扩展 。 

Bruce: 如 果 能 让 时 光 倒 流 ， 你 想 改变 哪些 特性 ? 

Philip: 随 着 分 布 式 结构 交 得 越 来 越 重 要 ， 我 们 需要 关注 运行 在 多 个 机 器 上 的 程序 ， 这 些 程 
序 将 数值 从 一 个 机 器 发 到 另外 一 个 机 器 。 当 发 送 一 个 数值 时 ， 你 可 能 更 想 要 的 是 这 个 值 本 身 [ 急 
切 求 值 (eager evaluation ) ]， 而 不 是 一 个 通过 求 值 才能 产生 这 个 值 的 程序 ( 以 及 这 个 程序 的 所 有 
自由 变量 的 值 )。 所 以 ， 在 分 布 式 世界 中 ， 我 认为 默认 采用 渴望 求 值 的 方式 更 好 ， 不 过 当 你 需 
的 时 候 使 用 惰性 方法 也 会 很 容易 。 

Bruce: 你 见 到 过 的 用 Haskell 解 决 的 最 有 意思 的 问题 是 什么 ? 

Philip : 我 一 直 在 为 Haskell 寻 找 用 途 。 记 得 多 年 前 ， 我 吃惊 地 看 到 Haskell 被 用 在 自然 语言 处 
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理 中 。 并 且 自 那 时 起 多 年 后 Haskell 又 被 用 于 一 个 抗击 艾滋 病 的 蛋白 质 折 登 的 应 用 中 。 我 刚刚 看 了 
一 下 Haskell 社 区 的 主页 ,上面 列 出 了 40 个 Haskell 的 工业 应 用 .现在 Haskell 在 金融 业 也 有 许多 用 户 ， 
答 兰 银行 、 瑞 士 信 贫 、 德 国 银行 以 及 英国 洒 打 银行 。Facebook 采 用 Haskell 实 现 了 一 个 内 部 使 用 的 
更 新 PHP 代 码 的 工具 。 我 最 喜欢 的 是 一 个 使 用 Haskell 实 现 的 垃圾 回收 应 用 一 一 不 是 在 软件 中 使 用 
的 那 种 内 存 垃 圾 回收 ， 而 是 真正 的 生活 垃圾 回收 ,…… 是 用 在 垃圾 车 上 的 编程 引 学 。 


8.2.6 ”第 一 天 我 们 学 到 了 什么 


Haskell 是 一 门 孙 数 式 编程 语言 。 它 第 一 个 显著 的 特性 就 是 它 是 一 门 纯 函数 式 语 言 , 对 一 个 也 
数 使 用 相同 参数 ， 总 是 可 以 得 到 相同 的 结果 。 它 没有 副作用 。 我 们 在 第 一 天 花 了 大 部 分 时 间 了 人 解 
语言 的 特性 ， 你 曾 在 本 书 其 他 语言 中 见 到 过 这 些 特性 。 

我 们 首先 学 习 了 基本 表达 式 和 人 简单 数据 类 型 。 由 于 没有 可 变 的 变量 赋值 机 制 , 所 以 使 用 递归 
定义 了 一 些 简 单数 学 函数 ,并 用 递归 处 理 列表 。 我 们 使 用 基本 的 Haskell 表 达 式 , 并 将 它们 结合 在 
一 起 形成 新 洱 数 。 我 们 看 到 了 类 似 Erlang 和 Scala 中 的 模式 匹配 和 哨兵 机 制 。 和 你 在 Erlang 中 看 到 
的 一 样 ， 使 用 了 列表 和 元 组 作为 基本 的 集合 。 

最 后 ,我 们 学 习 了 构建 列表 ,并 借 此 了 解 到 列表 推导 、 范 围 以 及 惰性 序列 。 让 我 们 将 这 里 的 
一 些 想 法 应 用 到 实际 中 吧 。 


8.2.7 ”第 一 天 自习 


到 现在 , 如 琳 你 已 经 完成 了 本 书 所 有 其 他 孙 数 式 编程 语言 的 学 习 , 那么 编写 汕 数 式 程序 将 变 
得 更 加 容易 。 在 本 市 中 ， 我 将 给 你 加 一 些 难度 。 
找 






































口 Haskell 维 基 。 
口 提供 编译 需 选 择 文 持 的 在 线 Haskell 团 体 。 
做 

口 你 能 找到 多 少 种 实现 a11Even 的 方法 ? 

口 编写 一 个 消 数 ， 它 以 一 个 列表 作为 参数 并 返回 逆序 后 的 列表 。 

口 从 五 个 颜色 黑 、 白 、 蓝 、 黄 和 红 任 选 出 两 个 组 合 在 一 起 ， 编 写 一 个 国 数 ， 计 算出 所 有 可 
能 的 组 合 。 注 意 ， 你 只 能 包含 (black，blue) 和 (blue，black) 两 者 中 的 一 个 。 

口 编写 一 个 列表 推导 来 构建 一 个 儿童 乘法 表 。 这 个 表 应 该 是 一 个 由 三 元 组 组 成 的 列表 ， 三 
元 组 的 前 两 个 整数 元 素 的 取 值 范围 是 1~12， 第 三 个 元 素 为 前 两 个 元 素 的 乘积 。 

口 使 用 Haskell 解 决 地 图 着 色 问 题 ( 请 参考 4.2 市 )。 


8.3 第 二 天 : Spock 的 超凡 力量 








与 一 些 人 一 起 工作 ,你 可 能 在 很 长 的 一 段 时 间 里 都 不 会 注意 到 他 们 的 优秀 品质 ,不 过 与 Spock 
一 起 工作 ,你 会 很 容易 看 到 他 超 几 的 力量 ,他 英明 末 断 ,很 有 逻辑 性 ,并且 可 完全 预知 事情 的 发 
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展 。Haskell 的 超凡 优势 也 恰 是 逻辑 的 预知 能 力 和 人 简单 性 .许多 大 学 在 程序 推理 谋 程 中 教授 Haskell。 
Haskell 在 进行 正确 性 证 明 上 比 命令 式 语言 容易 得 多 。 在 本 节 中 , 我 们 将 深入 人 研究 这 个 实用 的 、 可 
以 提供 更 好 的 预知 能 力 的 概念 。 我 们 从 高 阶 ( higher-order ) 果 数 开始 ， 然 后 讨论 Haskell 组 合 高 阶 
国 数 的 策略 。 这 里 将 会 介绍 偏 应 用 函数 和 柯 里 化 。 我 们 最 后 会 看 看 惰性 计算 ( lazy computation )。 
这 势必 会 是 充实 的 一 天 。 让 我 们 开始 吧 。 




















8.3.1 高 阶 函 数 


这 本 书 中 的 每 门 语言 都 涵盖 了 高 阶 编程 的 思想 。Haskell 更 广泛 地 依赖 这 个 概念 。 我 们 将 快速 
学 习 匿 名 了 艺 数 ， 并 且 在 很 多 预 置 的 操作 列表 的 函数 中 使 用 它们 。 由 于 你 已 经 看 到 过 这 些 概 念 ， 
并 且 有 了 不 错 的 基础 , 所 以 我 会 用 比 其 他 语言 更 快 的 速度 完成 这 门 语言 的 学 习 。 站 和 完 从 匿名 也 数 
开始 。 

1. 匿名 函数 

你 可 能 已 经 预料 到 ，Haskell 中 的 匿名 国 数 语法 非常 价 单 。 其 语法 格式 是 (\param1.. paramn 
-> function_body)。 像 下 面 这 样 试 一 下 : 


Prelude> (\x -> x) "Logical.”" 

"Logical.”" 

Prelude> (\x -> X ++ " captain.”) "Logical," 
"Logical, captain.™ 


单独 使 用 匿名 函数 时 ,它们 并 没有 增加 什么 功能 。 不 过 与 其 它 也 数 结合 在 一 起 使 用 ,它们 的 
功能 将 变 得 非常 强大 。 

2. map 和 where 

自 完 , 定义 了 一 个 匿名 函数 ， 它 只 是 返回 第 一 个 参数 。 接 下 来 , 定义 了 一 个 用 于 附加 字符 串 
的 水 数 。 和 你 在 其 他 二 言 中 已 经 看 到 的 一 样 ， 匿 名 孔 数 对 于 列表 库 来 说 是 一 个 非常 重要 的 特性 。 
Haskell 内 置 了 一 个 map 困 数 : 

map (\x -> x * x) [1, 2，3] 

将 map 国 数 应 用 于 一 个 匿名 国 数 和 一 个 列表 上 。map 会 将 这 个 匿名 困 数 应 用 到 列表 中 的 每 一 
项 并 收集 返回 绪 末 。 这 里 没有 什么 令 人 司 诈 的 东西 , 不 过 这 种 形式 可 能 有 些 让 人 阳 生 而 难以 一 次 
全 部 理解 消化 。 我 们 可 以 将 所 有 这 些 都 打包 成 一 个 孔 数 ， 并 用 局 部 作用 域 消 数 蔡 代 匿 名 孙 数 ， 如 
下 所 示 : 


haskell/map.hs 












































module Main where 
squareAll 11ist = map square 11st 
where square X = X *# X 


我 们 已 经 定义 了 一 个 名 为 squareA11 的 函数 ， 它 接受 一 个 名 为 list 的 参数 。 接 下 来 ,使 用 map 
将 一 个 名 为 square 的 函数 应 用 到 列表 的 所 有 元 素 上 。 然 后， 使 用 一 个 称 为 where 的 新 特性 声明 
square 气 数 的 一 个 的 局 部 作用 域 的 版 本 。 你 不 必 为 where 绑 定 函 数 , 但 可 以 绑 定 任何 变量 。 本 章 
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后 续 还 会 有 一 些 有 关 where 的 例子 ， 下 面 是 运行 结果 : 

“Main> :1oad map.hs 

[1 of 1] Compiling Main ( map.hs, interpreted ) 

Ok, modules loaded: Main. 

“Main> squareAll [1, 2，3] 

[1,4,9] 

你 也 可 以 将 map 和 图 数 的 某 一 部 分 一 起 使 用 ， 这 称 为 section， 像 下 面 这 样 : 

Prelude> map (+ 1) L1，2，3] 

[2,3,4] 

(+1) 实 际 上 是 一 个 偏 应 用 函数 。 函 数 + 接受 两 个 参数 ,但 实际 上 只 提供 了 一 个 。 最 终结 果 是 
得 到 了 一 个 类 似 (x + nh 

3.filter、foldl 和 foldr 

下 一 个 常用 的 函数 是 fi1ter, 这 个 函数 会 对 一 个 列表 中 每 个 元 素 进行 一 个 测试 , 像 下 面 这 样 : 

Prelude> odd 5 

True 

Prelude> filter odd [1l1, 2, 3, 4, 5] 

[1 355] 

你 也 可 以 执行 fold 1left 和 fold right， 就 像 我 们 在 Clojure 和 Scala 中 使 用 的 那样 。 你 即将 
使 用 的 函数 是 fo1d1 和 fo1dr 的 变种 : 


Prelude> foldl CAXX carryOver -> carryOver + X) 0 [1 .. 10] 
55 


我 们 使 用 一 个 初 值 为 0 的 进位 ( carryover ), 然后 将 这 个 函数 应 用 于 列表 中 的 每 个 元 素 ， 使 
用 好 返回 结果 作为 参数 carry0ver, 使 用 列表 中 的 每 个 元 素 作为 男 外 一 个 参数 。 当 你 用 操作 符 
进行 fo1d 操 作 时 ， 另 外 一 种 fo1d 的 形式 更 加 人 简便: 



































Prelude> foldll (+) [1 .. 3] 
6 
这 里 使 用 操作 符 + 作 为 一 个 接受 两 个 参数 并 返回 一 个 整数 的 纯 函数 。 其 结果 和 下 面 计算 的 结 
果 相 同 : 
Prelude> 1 +2+3 
6 
oo sm foldr1l 从 右 到 左 地 进行 fold 操 作 。 
你 可 能 已 经 想到 ,Haskell 在 标准 库 中 提供 了 许多 其 他 的 列表 操作 孔 数 , 这 些 函 数 多 数 都 使 用 


SS ee en 
Haskell 将 也 数组 合 在 一 起 工作 的 方法 。 





8.3.2 ” 含 应 用 函数 和 柯 里 化 


我 们 已 经 对 上 男 数 组 合 与 俩 应 用 困 数 做 了 人 徐 单 介绍 。 这 些 概 念 非常 重要 并 且 是 Haskell 的 核心 
概念 。 我 们 应 该 花 更 多 时 间 在 这 里 
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每 个 Haskell 函 数 都 只 有 一 个 参数 。 你 也 许 会 问 自己 :“ 如 果 这 是 真 的 , 那么 如 何 编写 一 个 像 + 
这 样 的 将 两 个 数字 相 加 在 一 起 的 限 数 呢 ?”” 

事实 上 ,这 的 确 是 真 的 。 每 个 水 数 的 确 只 拥有 一 个 参数 。 为 了 人 简化 类 型 的 语法 ,我 们 来 定义 
一 个 名 为 prod 的 函数 : 


Prelude> let prod xy=x*y 
Prelude> prod 3 4 
12 


我 们 定义 了 一 个 因数 ， 它 可 以 工作 。 我 们 来 看 一 下 这 个 函数 的 类 型 : 

Prelude> :t prod 

prod :: (Num a) => a -> a -> a 

Num a => 这 部 分 的 含义 是 :“ 在 接 下 来 的 类 型 定义 中 ，a 是 一 个 Num 类 型 变量 。 之 前 你 已 经 
看 见 过 其 余 的 定义 了 。 当 时 我 为 了 简化 一 些 事情 而 在 这 个 含义 上 面 说 了 谎 。 现 在 , 是 澄清 事实 的 
时 候 了 。Haskell 使 用 了 一 个 概念 ， 将 拥有 多 个 参数 的 函数 拆 分 为 多 个 只 有 一 个 参数 的 函数 。 
Haskell 使 用 偏 应 用 来 完成 这 个 工作 。 

不 要 被 名 词 术语 所 困扰 。 偏 应 用 绑 定 某 些 参数 ， 不 过 不 是 所 有 的 。 例 如 ， 我 们 可 以 对 prod 
运用 偏 应 用 来 创建 一 些 其 他 揣 数 : 

Prelude> let double = prod 2 

Prelude> let triple = prod 3 


先 来 看 看 这 些 困 数 左 侧 的 定义 。 之 前 定义 的 prod 有 两 个 参数 ， 不 过 这 里 仅 使 用 了 第 一 个 参 
数 。 这 样 一 来 ，prod 2 的 计算 变 得 容易 ， 只 是 将 最 初 函 数 版 本 prod x y = x * y 中 的 x 符 换 成 2， 
得 到 prod y = 2 * y。 这 个 函数 工作 起 来 与 你 预期 的 相同 : 

Prelude> double 3 

6 


Prelude> triple 4 
12 


文 底 揭 晓 。 当 Haskell 计 算 prod 2 4 时 ， 它 实际 上 计算 (prod 2) 4, 像 下 面 这 样 。 

口 首先 ， 应 用 prod 2。 这 将 返回 池 数 (\y -> 2 * y)。 

口 然后 ， 应 用 Qy -> 2 * y) 4 或 2 * 4， 结 果 为 8。 

这 个 过 程 称 为 柯 里 化 , 并 且 几 乎 每 个 Haskell 中 的 多 参数 函数 都 是 柯 里 化 的 。 这 样 Haskell 就 具 
有 更 大 的 灵活 性 以 及 更 简单 的 语法 。 大 多 数 情况 下 ,你 实际 上 并 不 需要 考虑 它 ， 因 为 柯 里 化 和 未 
柯 里 化 的 函数 的 结果 是 相同 的 。 









































8.3.3 ”惰性 求 值 





和 Clojure 的 序列 库 相 似 ，Haskell) 泛 使 用 了 惰性 求 值 。 有 了 惰性 求 值 ,你 可 以 构建 返回 无 穷 
列表 的 函数 。 通 第 ,你 会 使 用 列表 构建 方法 来 产生 一 个 无 穷 列表 。 看 看 下 面 这 个 例子 ， 它 构建 了 
一 个 无 穷 范 围 ， 从 x 开 始 ， 步 长 为 y: 
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haskell/my_range.hs 


module Main where 
myRange start step = start: (myRange (start + step) step) 


这 个 子 数 的 语法 有 些 奇 特 ， 不 过 整体 的 效果 很 美妙 。 我 们 构建 了 一 个 名 为 myRange 的 孔 数 ， 
它 接 受 一 个 范围 的 起 点 和 步 长 作为 参数 。 我 们 使 用 列表 组 合 来 构建 这 个 列表 ， 用 start 人 参数 作为 
列表 的 head， 用 (myRange (start + step) step) 作 为 列表 的 tai1 部 分 。 下 面 是 myRange 1 1 
的 后 续 求 值 操 作 过 程 : 

e 1l:myRanNnge (2 1) 





ee 1:2:myRaNge (3 1) 


e 1:2:3:myRange (4 1) 


这 个 递归 将 无 休止 地 进行 下 去 , 所 以 一 般 将 这 个 函数 与 其 他 可 以 限制 递归 过 程 的 函数 一 起 使 
用 。 首 先 确 保 已 经 加 和 载 了 my_range.hs: 


“Main> take 10 (myRange 10 1) 
[10,11,12,13,14,15,16,17,18,19| 
x*Main> take 5 (myRange 0 5) 

[0% 5 110155201 


列表 构造 的 方法 可 以 使 得 一 些 说 归 函 数 工作 得 更 加 融 效 。 下 面 是 一 个 辈 波 那 契 序 列 的 例子 ， 
我 们 在 这 个 例子 中 使 用 了 组 合 情 性 求 值 : 


haskell/lazy fib.hs 





module Main where 
lazyFib x y = x:(lazyFib y (x + y)) 


fib = lazyFib 1 1 


fibNth x = head (drop (x - 1) (take (x) fib)) 

第 一 个 函数 构建 了 一 个 序 人 ee 前 两 个 狂 子 的 和 。 我 们 可 以 很 快 地 获得 一 个 
序列 ， 不 过 在 API 上 还 有 改善 余地 。 要 想 生 成 一 个 合适 的 右 波 那 契 序列 ， 必 须 用 1 和 1 来 作为 序列 
的 头 两 个 数字 ， 这 样 fib 才 和 全 ee 最 后 ,我 们 拥有 不 止 一 个 允 
许 用 户 使 用 drop 和 take 从 序列 中 抓 取 一 个 数字 的 玫 助 函数 。 下 面 是 这 些 函 数 应 用 的 实例 : 


“Main> take 5 (lazyFib 0 1) 
We We ee 

x*Main> take 5 (fib) 

We ee 

*Main> take 5 (drop 20 (lazyFib 0 1)) 
[10946,17711,28657,46368,75025] 
x*Main> fibNth 3 

2 

x*Main> fibNth 6 

8 
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这 三 个 因数 优美 月 简明 。 我 们 定义 了 一 个 无 穷 序 列 ，Haskell 只 是 计算 完成 这 项 工作 所 需 的 必 
要 部 分 。 当 你 开始 尝试 将 无 穷 队 列 结 合 在 一 起 时 ,你 就 会 开始 体会 到 这 种 乐趣 。 首 先 , 将 两 个 相 
差 偏 移 为 1 的 斐 波 那 契 序列 相 加 到 一 起 : 


“Main> take 5 (zipWith (+) fib (drop 1 fib)) 
L273 6 13] 


令 人 惊奇 的 是 ， 我 们 得 到 了 一 个 韭 波 那 契 序列 。 这 些 高 阶 函 数 在 一 起 工作 得 很 好 。 世 数 
zipWith 将 两 个 列表 中 下 标 相 同 的 每 一 项 结对 ， 然 后 把 函数 + 传递 给 它 。 我 们 还 可 以 将 范围 内 的 
元 系 翻 倍 : 

“Main> take 5 (map (*2) [1 ..]) 

[2,4,6,8,10] 

我 们 使 用 map 将 俩 应 用 函数 *2 应 用 于 无 穷 范 围 [L. .] ， 然 后 从 1 开始 使 用 这 个 无 穷 范围 。 

国 数 式 编程 语言 的 好 处 是 ,你 可 以 用 意 想不到 的 方式 编写 它们 。 例 如 , 我 们 可 以 至 不 劲 地 
使 用 函数 组 合 将 偏 应 用 函数 与 惰性 序列 放 在 一 起 使 用 : 

“Main> take 5 (map (G(x 2) . (* 5)) fi1b) 

[10,10,20,30,50] 


这 段 代 人 码 比 较 有 冲击 力 ， 我 们 把 它 拆 解 开 来 细致 分 析 。 从 里 往外 ， 前 先是 (x 5)。 这 是 一 个 
偏 应 用 函数 。 传 递 给 该 函数 的 参数 者 将 被 乘 以 5。 我 们 将 结果 传递 给 男 外 一 个 偏 应 用 阴 数 (x 2)。 
再 将 这 个 组 合 归 数 传递 给 map， 并 将 这 个 孔 数 组 合 应 用 到 无 穷 fib 序 列 的 每 个 元 条 上 。 将 这 个 无 
穷 的 结果 传递 给 take 5， 生 成 一 个 翡 波 那 契 序列 的 前 5 个 元 素 ， 这些 元 系 先 被 乘 以 5， 后 义 被 有 2。 

你 可 以 很 容易 地 看 到 你 是 如 何 构 建 问题 的 解决 方案 的 。 只 是 将 一 个 函数 传递 给 下 一 个 洱 数 。 
在 Haskell 中 , f . g x 是 f(g x) 的 缩写 。 当 按照 这 种 方式 构建 函数 时 ， 你 可 能 想 要 按 从 第 一 个 
到 最 后 一 个 的 顺序 应 用 这 些 国 数 。 你 可 以 用 “. ”操作 符 来 达到 这 个 目的 。 例 如 ， 要 倒转 一 个 图 
片 ， 先 垂直 翻转 图 片 ， 再 水 平 翻 转 即 可 。 几 片 处 理 融 可 能 会 执行 类 似 CflipHorizontal1y . 
flipVertically . invert) image 的 代码 。 




















8.3.4 _ Simon Peyton-Jones 访 谈 录 


短暂 休息 一 下 。 让 我 们 来 听 听 另 一 位 来 自 Haskell 委 员 会 成 员 的 观点 吧 。Simon Peyton-Jones 
在 伦敦 大 学 学 院 做 了 7 年 讲师 , 并 作为 教授 供职 于 格拉 斯 如 大 学 9 年 。 在 1998 年 他 进入 微软 研究 院 
(剑桥 ) 之 后 ， 他 的 研究 领域 主要 集中 在 单 处 理 融 和 并 行 主 机 上 实现 并 应 用 顶 数 式 编程 语言 。 他 
是 本 书 所 用 的 Haskell 编 译 器 的 主要 设计 者 。 

Bruce: 给 我 讲 一 些 关 于 创造 Haskell 的 事情 吧 。 

Simon: Haskell 很 不 寻常 的 一 点 就 是 ， 它 是 一 门 成 功 的 由 委员 会 创造 的 语言 。 想 一 下 任何 一 
门 成 功 的 语言 ， 其 最 初 的 实现 很 可 能 是 由 一 名 开发 者 或 一 个 非常 小 的 团队 完成 。Haskell 则 不 同 ， 
它 最初 就 是 由 一 个 二 十 几 个 研究 人 员 组 成 的 国际 团体 设计 的 ,我 们 在 语言 的 核心 原则 上 充分 地 达 
成 共识 。Haskell 是 一 门 原 则 性 非常 强 的 语言 ， 这 样 才 能 保持 语言 设计 的 一 致 性 。 

此 外 ,在 诞生 二 十 多 年 后 ，Haskell 在 受 欢迎 程度 上 正 迎 来 一 次 重要 的 增长 。 编程 语言 通常 在 








图 灵 社 区 会 员 LorraineMeillorrainemei@gmail.com) 专 享 尊重 版 权 





224 第 8 草 Haskell 


其 生命 周期 的 头 几 年 要 么 成 功 或 要 么 (大 多 数 ) 失败 ， 而 Haskell 在 这 么 多 年 后 才 取 得 成 功 的 原因 
是 什么 呢 ? 我 相信 是 由 于 Haskell 坚 持 纯洁 性 的 原则 以 及 不 存在 副作用 。 陌 生 的 行为 方式 阻碍 了 
Haskell 成 .为 一 门 主流 编程 语言 。 那些 长 远 的 好 处 会 逐渐 变 得 显 而 萄 见 。 无 论 未 米 的 主流 编程 语言 
看 起 来 是 否 与 Haskell 相 像 ， 我 相信 它们 都 会 具有 强大 的 用 于 控制 副作用 的 机 制 。 

Bruce: 你 最 喜欢 它 哪 一 点 呢 ? 

Simon: 除了 纯洁 性 之 外 ， 可 能 Haskell 中 最 不 寻常 、 最 具 吸 引力 的 特性 就 是 其 类 型 系统 了 。 
静态 类 型 是 当今 现 有 的 使 用 最 为 广泛 的 程序 验证 技术 。 成 百 上 千 万 的 程序 员 每 天 编写 类 型 ( 仅 是 
部 分 规范 )， 并 且 编 译 器 在 每 次 编译 这 些 程序 时 都 检查 这 些 类 型 。 类 型 是 函数 式 编程 的 UML: 一 
种 可 以 关系 紧密 并 形成 程序 永久 组 成 部 分 的 设计 语言 

从 第 一 天 的 学 习 起 , Haskell 的 类 型 系统 就 拥有 不 寻 第 的 表现 力 , 主要 是 因为 类 型 类 和 更 高 级 
别 的 类 型 变量 。 从 那 时 起 ，Haskell 就 成 了 我 十 分 喜欢 的 用 于 探索 新 类 型 系统 想法 的 实验 室 。 多 参 
数 类 型 类 、 更 高 级 别 类 型 、 一 等 对 象 的 多 态 机 制 、 隐 式 参 数 、GADT( Generalised algebraic datatype， 
通用 代数 数据 类 型 ) 以 及 类 型 体系 ……: 我 们 正 乐 在 其 中 ! 更 重要 的 是 , 我们 正在 扩展 属性 的 范围 
以 使 得 它们 可 以 通过 类 型 系统 进行 静态 检查 。 

Bruce: 如 果 能 让 时 光 倒 流 ， 你 想 改变 哪些 特性 ? 

Simon: 我 想 要 一 个 更 好 的 记录 系统 (Tecord system )。Haskell 的 记录 系统 如 此 简单 是 有 原 
了 拘 5 和信 全 有 不 是 和 处 5 

我 想 要 一 个 更 好 的 模块 系统 (module system )。 特别 是 , 我 想 能 够 发 布 一 个 Haskell 包 P 给 其 他 
某 个 人 ,并 说 :“P 需 要 从 其 他 地 方 导入 接口 [和 J: 你 需要 提供 它们 , 并且 P 将 提供 接口 K”。Haskell 
没有 用 于 此 的 正式 方法 。 

Bruce: 在 实际 产品 中 ， 你 见 过 的 最 特别 的 Haskell 应 用 是 什么 ? 

Simon: Haskell 是 一 门 真正 的 通用 编程 语言 ， 这 是 一 个 优势 ,但 同时 也 是 一 个 不 足 ， 因 为 它 
没有 “杀手 级 应 用 ”( killer app )。 也 就 是 说 ， 我 们 常常 可 以 发 现 Haskell 是 一 种 方法 ， 通 过 这 种 方 
法 人 们 可 以 想 出 特别 优雅 和 不 寻 第 的 方式 来 解决 问题 。 看 一 下 Conal Elliot 在 函数 反应 式 动画 
( functional reactive animation ) 方面 所 做 的 工作 ， 它 让 我 把 一 个 “时 变 值 ”看 成 一 个 可 以 被 函数 
式 程序 操纵 的 单一 值 , 通过 这 种 方式 它 可 以 改变 我 的 思维 。 在 一 个 更 现实 (但 很 有 用 ) 的 级 别 上 ， 
Haskell 也 有 许多 有 关 解 析 器 和 美化 输出 组 合 的 库 ， 每 个 简单 接口 的 后 面 都 封装 了 强大 的 智能 系 
统 。Jean-Marc Eber 向 我 展示 了 如 何 设 计 一 个 组 合 库 来 描述 金融 衍生 产品 ， 这 些 东 西 我 自己 是 从 
来 不 会 想到 的 。 

在 每 个 例子 中 ,Haskell 都 支持 了 一 个 新 的 表达 层次 ,从 现 有 的 主流 语言 中 获得 这 些 将 特别 困难 。 

现在 , 你 有 足够 的 知识 使 用 Haskell 去 解决 一 些 难度 较 高 的 问题 了 , 不 过 你 无 法 解决 一 些 简单 
的 诸如 IO 、 状 态 以 及 错误 处 理 相 关 的 问题 。 这 些 问 题 促 使 我 们 次 入 学 习 一 些 高 级 理论 。 在 第 三 
天 的 学 习 里 ,我 们 将 学 习 人 研究 monad。 


8.3.5 ”第 二 天 我 们 学 到 了 什么 
在 第 二 天 , 我 们 了 解 了 高 阶 函数 。 我们 开始 使 用 那些 你 在 本 书 其 他 语言 中 几乎 都 看 到 过 的 相 
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同类 型 的 列表 库 。 你 看 到 了 map 、 几 个 版 本 的 fo1d 以 及 其 他 一 些 诸如 zip 和 zipwWith 的 函数 。 我 
们 在 固定 长 度 列 表 上 应 用 了 这 些 函 数 , 接 下 来 采用 了 一 些 惰性 技术 ,就 像 你 在 Clojure 语 言 中 用 到 
的 那些 。 

在 完成 了 高 级 函数 的 学 习 后 , 我 们 学 会 了 使 用 国 数 并 只 应 用 它 的 一 部 分 参数 。 这 种 技术 被 称 
为 偏 应 用 孔 数 。 接 下 来 ， 使 用 偏 应 用 也 数 将 一 个 一 次 接受 多 个 参数 的 孔 数 (f(x,y) ) 转换 为 每 
次 只 接受 一 个 参数 的 函数 (f(x) (y) )。 我 们 了 解 到 在 Haskell 中 所 有 吗 数 都 可 以 柯 里 化 ， 这 也 
解释 了 为 何 Haskell 函 数 的 类 型 签名 接受 多 个 参数 。 例 如 ， 困 数 f x y = x + y 的 类 型 签名 为 f :: 
(Num a) => a -> a -> ao 

我 们 还 学 会 了 函数 组 合 , 将 函数 的 返回 值 作为 妨 一 个 孔 数 的 输入 。 通过 这 种 方法 可 以 高 效 地 
将 函数 结合 在 一 起 。 

最 后 , 我 们 使 用 了 惰性 求 值 。 我们 可 以 定义 用 于 构建 无 穷 列表 的 孔 数 , 构建 出 的 无 穷 列表 将 
根据 需要 进行 处 理 。 通 过 这 种 方法 可 以 构建 出 斐 波 那 夏 序列, 并 将 琐 数 组 合 与 惰性 序列 一 起 使 用 
上 之 不 费力 地 就 构造 出 一 个 新 的 惰性 序列。 


8.3.6 ”第 二 天 上 自习 
找 




















口 可 以 用 来 操作 列表 、 字 符 串 或 元 组 的 函数 。 
口 对 列表 排序 的 方法 。 
做 

口 编写 晒 数 sort， 接 受 一 个 列表 作为 参数 并 且 返 回 一 个 有 序 的 列表 。 

口 编写 函数 sort， 接 受 一 个 列表 和 一 个 比较 两 个 参数 大 小 的 函数 作为 参数 ， 然 后 返回 一 个 
有 序列 表 。 

口 编写 一 个 Haskell 汕 数 ， 将 字符 串 转 换 为 数字 。 字 符 串 应 该 以 $2 ,345,678.99 形 式 提供 ， 
并 且 可 以 包含 前 导 零 。 

口 编写 一 个 函数 ,该 函数 接受 一 个 参数 x， 并 返回 从 x 起 始 ， 每 两 个 元 泰 间 相 隔 差 值 为 2 的 展 
性 友 列 。 然 后 ， 编 写 男 外 一 个 孔 数 ， 返 回 从 y 开 始 ， 每 两 个 元 厅 间 相隔 差 值 为 4 的 惰性 厅 
列 。 通 过 组 合 将 两 个 函数 合并 在 一 起 返回 一 个 从 x+y 开 始 ， 每 两 个 元 素 间 相隔 差 值 为 7 的 
惰性 序列 。 

口 使 用 偏 应 用 孔 数 定义 两 个 函数 ， 其 中 一 个 将 返回 一 个 数值 的 一 半 。 男 外 一 个 函数 会 将 \n 
附加 到 任意 字符 串 的 末尾 。 

如 果 你 想 做 一 些 更 有 趣 的 事情 ， 下 面 有 一 些 难度 更 高 的 练习 。 

口 编写 一 个 函数 ， 用 来 确定 两 个 整数 的 最 大 公约 数 。 

口 创建 一 个 惰性 的 素数 序列 。 

口 根据 恰当 的 字 边 界 将 一 个 长 字符 串 拆 分 为 多 行 

口 为 上 一 个 练习 添加 行 号 。 

口 对 上 面 的 练习 , 将 函数 加 到 左 侧 和 右 侧 , 使 得 每 空格 补 齐 ( 使 得 两 个 页 边 笔直 )。 
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8.4 第 三 天 : 心灵 融合 


在 《星际 迷航 》 中 ，Spock 拥 有 一 种 特殊 的 能 力 ， 他 可 以 使 用 一 种 被 他 称 为 心灵 融合 ( mind 
meld ) 的 能 力 与 某 个 人 建立 连接 。Haskell 爱 好 者 们 经 党 声称 他 们 与 Haskell 语 言 间 存 在 这 种 连接 。 
对 许多 人 来 说 ,对 他 们 影响 力 最 大 的 二 言 特性 就 是 类 型 系统 。 在 长 时 间 使 用 这 门 培 言 后 ,我 可 以 
很 容易 理解 这 一 切 成 为 事实 的 绿 由 。Haskell 的 类 型 系统 灵活 且 功 能 相当 强大 , 它 可 以 推 肝 出 我 的 
绝 大 多 数 意图 ， 它 并 不 介入 我 的 工作 ,除非 我 需要 它 。 当 构建 函数 时 ,特别 是 那些 由 函数 组 合 而 
成 的 抽象 函数 时 ， 我 可 以 得 到 类 型 系统 提供 的 完好 性 检查 。 











8.4.1 ”类 与 类 型 


Haskell 的 类 型 系统 是 这 门 语言 最 强大 的 特性 之 一 。 它 文 持 类 型 推断 , 因此 可 以 为 程序 员 减 轻 
许多 负担 。 它 也 足够 健壮 ， 甚 至 可 以 捕捉 到 程序 中 的 一 些 极 细微 的 错误 。 它 是 多 态 的 ， 这 意味 兰 
你 可 以 按 同 样 方式 对 待 同 一 种 类 型 的 不 同形 式 。 在 本 市 中 , 我 们 会 看 到 一 些 类 型 相关 的 例子 并 构 
建 一 些 属于 我 们 自己 的 类 型 。 

1. 基本 类 型 

让 我 们 回顾 一 下 到 目前 为 止 已 经 学 过 的 一 些 基 本 类 型 吧 。 首 先 ， 打 开 控 制 台 的 类 型 信息 
选项 。 

















Prelude> :set +t 
现在 ,我 们 就 可 以 看 到 每 条 语句 返回 的 类 型 信息 了 。 用 一 些 字 符 和 字符 串 试 试 : 


Prelude> 'c" 





pe 
TE Char 

Prelude> “abc” 

"abc" 

vt es EChnard 

Prelude> ['a', 'b', 'c'"] 
"abc" 

Tt Chnard 


控制 台 总 是 会 返回 你 最 后 输入 的 语句 的 值 ,并 且 你 可 以 将 :: 读 作 是 具有 某 种 类 型 ,对 于 Haskell 
来 说 , 字符 是 一 个 原生 类 型 。 字 符 串 是 一 个 字符 的 数组 。 用 数组 还 是 用 双 引 号 来 表示 字符 数组 无 
关 紧 要 。 对 于 Haskell 来 说 ， 这 两 种 形式 的 值 都 是 相同 的 : 

Prelude> "abc™” == ['a', 'b', 'c'] 

True 

下 面 是 一 些 其 他 的 原生 类 型 . 


Prelude> True 
True 

1t :: Bool 
Prelude> False 
False 
TB 
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随 着 对 类 型 的 深入 学 习 , 这 些 想 法 将 帮助 我 们 了 解 真实 发 生 的 一 切 。 接 下 来 定义 一 些 我 们 日 
己 的 类 型 吧 ，。 

2. 用 户 自 定义 类 型 

我 们 可 以 通过 data 关 键 字 定义 目 己 的 数据 类 型 。 最 简单 的 类 型 声明 使 用 了 一 个 有 限 长 度 的 
值 列 表 。 例 如 ，Boolean 类 型 可 以 这 样 定义 : 

data Boolean = True | False 

这 个 定义 的 含义 是 Boolean 类 型 有 单一 值 ， 要 么 是 True， 要 人 么 是 False。 我 们 也 可 以 用 同样 
的 方式 定义 目 己 的 类 型 。 考 虑 下 面 这 盒 只 有 两 套 花 色 〈suit ) 和 五 个 级 别 (rank ) 的 扑 殉 牌 吧 : 


haskell/cards.hs 











module Main where 
data Suit = Spades | Hearts 
data Rank = Ten | Jack | Queen | King | Ace 


在 这 个 例子 中 ，Suit 和 Rand 都 是 类 型 构造 器 。 我 们 使 用 关键 字 data 构 造 了 一 个 新 的 用 户 自 
定义 类 型 。 你 可 以 像 这 样 加 载 这 个 模块 : 

*Main> :1oad cards.hs 

[1 of 1] Compiling Main ( cards.hs, interpreted ) 


Ok, modules loaded: Main. 
x*Main> Hearts 


<interactive>:1:0: 
No instance for (Show Suit) 
arising from a use of ‘print' at <interactive>:1:0-5 


以 呀 ,发 生 了 什么 ? Haskell 告 诉 我 们 控制 台 尝 试 显示 这 些 值 , 但 却 并 不 知道 如 何 显 示 。 有 一 
种 文 持 显示 目 定 义 类 型 的 快速 方法 ， 即 当 声 明 用 户 目 定义 类 型 时 ， 需 要 继承 show 困 数 。 像 下 面 
这 样 : 


haskell/cards-with-show.hs 








module Main where 
data Suit = Spades | Hearts deriving (Show) 
data Rank = Ten | Jack | Queen | King | Ace deriving (Show) 
type Card = (Rank, Suit) 
type Hand = [Card] 


注意 ,我 们 向 系统 里 加 了 一 些 别 名 。Card 是 由 rank 和 suit 组 成 的 元 组 ，Hand 是 一 个 card 列 
表 。 我 们 可 以 使 用 这 些 类 型 构建 一 些 新 浮 数 : 

value :: Rank -> Integer 

value Ten = 1 

value Jack = 2 

value Queen = 3 

value King = 4 

value Ace = 5 
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cardValue :: Card -> Integer 
cardValue (rank, suit) = value rank 


对 任何 card 洲 戏 来 说 ， 我 们 需要 为 card 分 小 级 别 。 这 很 简单 ， 花 色 实 际 上 并 没有 起 到 什么 
作用 。 我 们 简单 地 定义 了 一 个 计算 级 别 值 的 函数 ， 接 下 来 定义 男 外 一 个 计算 cardValue 的 函数 。 
下 面 是 这 个 函数 的 实例 : 

*Main> :1oad cards-with-show.hs 

[1 of 1] Compiling Main ( cards-with-show.hs, interpreted ) 

Ok, modules loaded: Main. 


x*Main> cardValue (Ten, Hearts) 
1 


我 们 正在 使 用 一 个 复杂 的 用 户 目 定义 类 型 元 组 。 类 型 系统 使 得 我 们 始终 保持 意图 明确 , 这 样 
一 来 驶 更 容易 推 其 出 会 发 生 什 么 了 。 

3. 函 效 与 多 态 

早先， 你 见 到 过 一 些 也 数 类 型 。 看 看 下 面 这 个 简单 的 函数 : 


backwards [] = [] 
backwards (h:t) = backwards t ++ [hj 


可 以 为 这 个 函数 增加 一 个 类 型 ， 像 下 面 这 样 : 


backwards :: Hand -> Hand 








这 将 限制 backwards 上 因数 只 能 用 于 一 种 类 型 的 列表 , 即 card 列 表 。 我 们 真正 想 要 的 是 下 面 这 
个 函数 : 

backwards :: [al -> [aj 

backwards [|] = [] 

backwards (h:t) = backwards t ++ [h] 


现在 ， 这 个 函数 是 多 态 的 。[a] 的 含义 是 可 以 使 用 一 个 元 素 为 任意 类 型 的 列表 。 这 章 味 着 可 
以 定义 一 个 接受 某 个 类 型 a 的 列表 作为 参数 并 返回 同样 类 型 的 列表 的 函数 。 我 们 使 用 [a] -> [a] 
构建 了 一 个 可 以 用 于 上 自 定义 函数 的 类 型 模板 。 通 过 这 个 声明 告诉 编译 可 如 果 传 入 一 个 整 型 数列 
表 ， 这 个 函数 将 返回 整 型 数列 表 。 现 在 Haskell 拥 有 足够 的 信息 确保 你 保持 诚信 。 

下 面 来 构建 一 个 多 态 数 据 类 型 。 以 下 示例 是 一 个 多 态 类 型 ， 用 于 构建 由 类 型 相同 元 素 组 成 
的 三 元 组 : 


haskell/triplet.hs 











module Main where 
data Triplet a = Trio a a a deriving (Show) 


在 定义 的 左 侧 我 们 看 到 了 data Triplet a。 在 这 个 实例 中 ，a 是 一 个 类 型 变量 。 现 在 ,任何 
由 相同 类 型 元 系 组 成 的 三 元 组 部 具有 类 型 Triplet a。 看 一 个 例子 : 


“Main> :load triplet.hs 

[1 of 1] Compiling Main ( triplet.hs, interpreted ) 
Ok, modules loaded: Main. 

*Main» :t Irio a b'  C- 

Triov a be Ce oo Triphet Car 





图 灵 社 区 会 员 LorraineMei(lorrainemei@gmail.com) 专 享 尊重 版 权 


8.4 第 三 天 : 心灵 融合 229 





我 使 用 数据 构造 硕 Trio 构 建 了 一 个 三 元 组 。 在 下 一 节 中 ,我 们 将 深入 讨论 数据 构造 咒 。 基 
于 类 型 声明 ， 这 个 结果 是 Triplet a， 或 者 更 具体 些 ， 是 Triplet Char， 它 可 以 满足 任何 一 
个 以 Triplet a 为 参数 的 图 数 。 我 们 构建 了 一 个 完整 的 类 型 模板 ， 用 于 描述 任何 三 个 类 型 相同 
的 元 了 系 。 

4. 递归 类 型 

你 也 可 以 定义 可 递归 的 类 型 。 例 如 ,考虑 一 下 树 (tree )。 你 可 以 用 多 种 方式 定义 树 ， 不 过 在 
我 们 的 树 中 ， 值 都 在 叶子 市 点 上 。 节 点 ,要么 是 叶子 ， 要么 是 树 的 列表 。 我 们 可 以 像 下 面 这 样 来 
表达 这 棵 树 : 


haskell/tree.hs 


module Main where 
data Tree a = Children [Tree aj | Leaf a deriving (Show) 


我 们 定义 了 一 个 类 型 构造 带 Tree 和 两 个 数据 构造 大 Chi1dren 和 Leaf。 将 它们 放 在 一 起 来 表 
示 树 ， 如 下 所 示 : 


Prelude> :load tree.hs 

[1 of 1] Compiling Main ( tree.hs, interpreted ) 
Ok, modules loaded: Main. 

x*Main> let leaf = Leaf 1 

x“Main> leaf 

Leaf 1 


首先 ， 构建 一 棵 只 有 一 个 叶子 的 树 。 将 这 个 新 叶子 赋值 给 一 个 变量 。 数 据 构造 妖 Leaf 的 唯 
一 工作 就 是 持 有 类 型 和 值 信息 。 我 们 可 以 通过 模式 匹配 访问 每 个 部 分 ， 像 下 面 这 样 : 
x*Main> let (Leaf value) = leaf 


“Main> Value 

1 

接 下 来 构建 一 些 更 复杂 的 树 : 

*Main> Children[Leaf 1, Leaf 2j 

Children [Leaf 1,Leaf 2] 

*Main> let tree = Children[Leaf 1, Children [Leaf 2, Leaf 3]] 


*Main> tree 
Children [Leaf 1,Children [Leaf 2,Leaf 3]] 


我 们 构建 了 一 棵 包含 两 个 子 树 ( children ) 的 树 ， 每 个 子 树 都 是 一 个 叶子 。 接 下 来 ， 构 建 了 
一 棵 包含 两 个 节点 的 树 , 两 个 节点 分 别 为 叶子 和 一 棵 右 子 树 。 我 们 可 以 再 次 使 用 模式 匹配 获取 每 
部 分 数据 ， 可 以 从 那里 得 到 更 复杂 的 数据 。 这 个 定义 是 递归 的 ， 所 以 可 以 通过 1et 和 模式 匹配 在 
所 需要 的 更 次 的 层次 上 获取 数据 。 

x*Main> let (Children ch) = tree 

*Main> ch 

[Leaf 1,Children [Leaf 2,Leaf 3]] 

*Main> let (fst:tai1l) = ch 

x*Main> fst 

Leaf 1 
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我 们 可 以 清晰 地 看 出 类 型 系统 设计 者 的 意图 , 能够 剥离 出 完成 工作 所 需要 的 数据 。 这 个 设计 
策略 很 明显 将 读 来 一 些 额外 系统 开销 , 不 过 当 你 深入 研究 抽象 机 制 后 , 有 时 这 些 额 外 的 开销 也 是 
值得 的 。 在 这 个 例子 中 ,类 型 系统 可 以 将 函数 附加 到 每 个 特定 的 类 型 构造 各 上。 接 下 来 看 一 个 用 
于 判定 一 标 树 次 度 的 函数 : 

depth (Leaf _) = 1 

depth (Children c) = 1 + maximum (map depth c) 


印 数 中 的 第 一 个 模 陈 很 简单 。 如 果 它 是 一 个 叶子 ,那么 无 论 叶 子 的 内 容 是 什么 , 树 的 论 度 都 
是 1。 

接 下 来 的 模式 略 有 些 复杂 。 如 果 在 Chi1dren 上 执行 depth, 那么 将 在 maximum (map depth c) 
上 上 加 1。 困 数 maximum 计 算出 一 个 数组 中 值 最 大 的 那个 元 系 。 你 已 经 看 到 map depth c 会 得 到 一 个 
由 所 有 子 树 的 深度 值 所 组 成 的 列表 。 在 这 里 , 你 可 以 看 到 Haskel 是 如 何 使 用 数据 构造 硕 来 帮助 我 
们 精确 匹配 出 完成 工作 所 需要 的 那 部 分 数据 结构 的 。 

5. 类 

到 目前 为 止 ,我 们 已 经 学 习 了 类 型 系统 ,知道 了 它 在 一 些 领域 是 如 何 工 作 的 。 我 们 构建 了 用 
户 目 定 义 类 型 构造 郑 , 并 旦 获得 了 模板 , 这 些 模板 能 够 定义 数据 类 型 并 声明 操作 这 些 数 据 类 型 的 
为数 。Haskell 还 有 一 个 与 类 型 相关 的 重要 概念 ， 而 且 是 一 个 重量 级 的 概念 ， 这 个 概念 称 为 类 
(class )， 不 过 请 注意 ， 因 为 不 涉及 数据 ,所 以 它 不 是 面 回 对象 编 程 中 的 那个 类 。 在 Haskell 中 ， 类 
可 以 精细 地 控制 多 态 和 重 载 。 

例如 ,你 无 法 将 两 个 布尔 值 相 加 , 但 却 可 以 将 两 个 数字 相 加 在 一 起 。Haskell 将 类 用 作 这 个 目 
的 。 具 体 地 说 ， 类 定义 了 哪些 操作 可 以 在 哪些 输入 上 进行 。 你 可 以 把 它 看 作 是 一 个 Clojure 协议 。 

它 是 这 样 工 作 的 。 类 提供 了 一 些 函 数 签名 。 如 果 类 型 支持 类 的 所 有 卫 数 ,那么 这 个 类 型 是 类 
的 一 个 实例 。 例 如 ， 在 Haskell 标 准 库 中 有 一 个 名 为 Eq 的 类 。 

下 面 是 这 个 类 的 定义 : 

class Eq a where 

(==), (/=) :: a -> a -> Bool 





























-- (==) 或 (/=) 
x /= y = not (x == y) 
X == y = not (x /= y) 


这 样 ， 如 果 一 个 类 型 既 支 持 == 也 支持 /=， 那 么 它 是 Eq 的 一 个 实例 。 你 也 可 以 指定 一 些 样板 
实现 。 除 此 之 外 ， 如 果实 例 只 定义 了 其 中 的 某 个 孙 数 ， 其 他 孔 数 将 会 被 无 偿 提 供 。 

类 确实 支持 继承 ， 并 且 它 的 运行 和 你 想像 中 的 一 样 。 例 如 ， 类 Num 拥 有 子 类 Fractional 和 
Real。 图 8-1 中 展示 了 Haskell98 标 准 中 最 重要 的 一 些 类 的 组 织 结构 图 。 记 住 ， 这 些 类 的 实例 是 类 
型 ， 不 是 数据 对 象 ! 
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支持 很 多 类 型 
v 


Bounded Ord 
(元 组 等 ) (序列 ) (数值 ) 


Enum Fractional 


(排序 ) (数值 ) 


Integral RealFrac Floating 
(整数 ) (数值 ) (数值 ) 


图 8-1 重要 的 Haskell 类 





8.4.2 monad 


目 从 我 决定 写 这 本 书 的 那 刻 起 ,我 就 惯 怕 编 写 有 关 monad 的 章 扩 。 经 过 一 些 学 习 后 ， 我 了 解 
到 这 个 概念 没有 那么 难 。 在 这 一 节 中 ， 我 将 直观 的 告诉 你 需要 monad 的 原因 。 接 下 来 ， 我 们 会 看 
到 一 些 有 关 如 何 构 建 monad 的 高 层次 的 描述 。 最 后 ， 我 将 介绍 一 些 语 法 糖 ， 它 们 应 该 可 以 真正 地 
说 明 monad 是 如 何 工 作 的 。 

我 依靠 几 本 教程 来 帮助 我 形成 自己 的 理解 。 我 在 Haskell Wiki" 上 该 过 一 些 实用 的 例子 并 且 
“Understanding monad”” (理解 monad) 这 个 页 面 上 也 有 一 些 实用 的 好 例子 。 不 过 要 想 更 好 地 
理解 monad 可 以 做 些 什么 ， 你 需要 从 大 量 不 同 的 源码 中 阅读 一 些 有 关 Monad 的 例子 。 

1. 问题 : 喝 醇 的 海盗 

比如 ， 你 知道 一 个 海盗 制作 了 一 张 羧 宝 图 。 他 喝 酬 了 ,所 以 他 选择 了 一 个 已 知 点 和 一 个 已 知 
方 钻 ， 踏 跌 地 连 走 ( stagger ) 齐 爬 (craw] )， 问 着 宝 藏 前 进 。 一 次 走 两 步 ， 扑 一 步 。 在 命令 式 
编程 声言 中 ， 你 会 将 语句 连续 地 串 在 一 起 ， 其 中 v 中 存储 着 离 原 始 起 点 的 距离 ， 如 下 所 示 : 


def treasure map(v) 
Vv = stagger(v) 









































GD http://www.haskell.org/tutorial/monads.html。 一 一 原 书 注 
@) http://en.wikibooks.org/wiki/Haskell/Understanding monads。 





原 书 注 
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Vv = stagger(v) 

VvV = Crawl(v) 

returnC v ) 
end 


在 treasure_map 困 数 里 ， 我 们 调用 了 多 个 困 数 ， 这 些 果 数 连 续 地 改变 状态 一 一 即 移动 的 距 
离 。 这 里 的 问题 在 于 郴 数 具有 了 可 变 的 状态 。 我 们 可 以 使 用 呆 数 式 的 方法 解决 这 个 问题 ， 像 下 面 
这 样 : 


haskell/drunken-pirate.hs 





module Main where 


stagger :: (Num t) => 七 ->t 
stagger d=d+2 
crawl d=d+1 
treasureMap d = 
crawl| ( 
stagger ( 


stagger d)) 
你 可 以 看 到 这 个 函数 式 的 定义 读 起 来 很 不 方便 。 我 们 必须 谈 作 crawl、stagger 和 stagger， 而 不 
是 stagger、stagger 和 crawl， 而且 这 些 参 数 放 置 的 位 置 也 很 别扭 。 我们 需要 一 种 可 以 将 一 些 艺 数 连 
续 地 串联 在 一 起 的 策略 。 我 们 可 以 用 1et 表 达 式 作为 蔡 代 : 








letTreasureMap (v, d) = let dl = stagger d 
d2 = stagger dl 
d3 = crawl d2 

in d3 





Haskell 可 以 将 1et 表 达 式 串联 在 一 起 ， 并 且 使 用 in 语句 表示 最 后 的 形式 。 你 可 以 看 到 这 个 版 
本 的 实现 几乎 与 第 一 个 一 样 ,仍旧 无 法 让 人 满意 。 由 于 输入 和 输出 是 相同 的 , 所 以 将 这 类 函数 组 
合 起 来 应 该 更 容易 。 我 们 想 要 将 stagger (craw1(x)) 转 化 成 stagger (x) . craw1(x) ， 其 中 .是 
一 个 函数 组 合 。 这 就 是 一 个 monad。 

总 之 ,一 个 monad 让 我们 可 以 以 一 种 具有 特定 属性 的 方式 组 合 函 数 。 在 Haskell 中 ， 我 们 将 
monad 用 于 多 各 用途。 首先 ,处理 像 WO 这 样 的 事情 很 难 ， 因 为 在 纯 销 数 式 编程 语言 中 ， 当 传人 相 
同 的 参数 时 ， 郴 数 应 该 返回 相同 的 结果 ，LO 除 外 ， 例 如 你 想 要 晒 数 基于 一 个 文件 内 容 的 状态 而 
改变 。 

同样 ， 由 于 保存 了 状态 ， 像 前 面 介 绍 的 有 关 喝 酬 海 次 问题 的 代码 也 工作 得 很 好 。monad 人 允许 
你 模拟 程序 状态 。Haskell 提 供 了 一 种 被 称 为 do 语法 的 特定 语法 支持 命令 式 风 格 的 编程 。do 语 法 
工作 时 依赖 monad。 

最 后 , 一 些 简单 的 诸如 错误 条 件 的 事情 在 吨 数 式 堵 言 中 却 难于 人 处理, 因为 返回 结果 的 类 型 根 
据 也 数 成 功 与 否 而 不 同 。Haskell 提 供 了 Maybe monad 来 解决 这 个 问题 。 让 我 们 再 深入 挖掘 一 下 吧 。 

2. monad 的 组 成 

在 基本 级 别 上 ， 一 个 monad 包 含 以 下 三 个 基本 的 组 成 部 分 。 

口 一 个 基于 某 容 带 类 型 的 类 型 构造 关 。 这 个 容 需 可 以 是 简单 的 变量 、 列 表 或 者 是 任何 一 个 
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可 以 持 有 值 的 对 象 。 我 们 将 使 用 这 个 容 需 来 持 有 一 个 图 数 。 你 选择 的 容 需 将 根据 想 要 
monad 所 做 的 事情 的 不 同 而 不 同 。 

D 一 个 名 为 return 的 函数 ， 它 负 员 将 一 个 函数 包装 起 来 并 放 入 容器 。 当 后 续 使 用 到 do 记号 
时 ， 这 个 名 字 会 有 意义 。 记 住 ，return 将 函数 包装 到 monad 中 。 

口 一 个 名 为 >>= 的 bind 函 数 ， 它 负 员 给 也 数 解 包 。 我 们 会 使 用 bind 将 函数 串联 在 一 起 。 

所 有 monad 都 需要 满足 三 个 规则 。 这 里 我 会 简单 地 介绍 一 下 ， 对 于 某 个 monadm， 某 个 师 数 f 

















和 某 个 值 x 而 言 : 
口 你 应 该 能 够 使 用 类 型 构造 器 创建 monad ， 该 monad 可 以 与 革 个 可 以 持 有 值 的 类 型 一 同 
工作 ; 





口 你 应 该 能 够 在 不 损失 信息 的 前 提 下 对 值 进 行 包 装 和 解 包 ; (monad >>= return = monad) 。 
口 藤 套 绑 定 图 数 应 该 与 顺序 调用 它们 具有 相同 的 结果 。 ((m >>= f) >>= g = m >>= (\x 
-> f x >>= g)) 。 

我 们 不 会 在 这 些 规则 上 花费 过 多 时 间 , 这 些 规则 并 不 复杂 。 它们 支持 许多 有 用 的 信息 无 损 转 
化 。 如 果 你 真 的 想 深入 研究， 请 参见 我 给 你 留 下 的 参考 资料 。 

理论 知识 已 经 足够 了 。 下 面 来 构建 一 个 简单 的 monad。 我 们 将 从 头 开 始 构建 一 个 ， 接 下 来 ， 
将 使 用 一 些 有 用 的 monad 来 结束 这 个 小 市 。 

3. 从 头 构 建 一 个 monad 

我 们 需要 的 第 一 件 东西 是 一 个 类 型 构造 器 。monad 将 具有 一 个 函数 和 一 个 值 。 像 下 面 这 样 : 


haskell/drunken-monad.hs 





























module Main where 
data Position t = Position t deriving (Show) 


stagger (Position d) = Position (d + 2) 
crawl| (Position d) = Position (d + 1) 


rtn x = X 
x >>== =f x 


monad 有 三 个 主要 的 组 成 元 系 , 包括 类 型 容 锅 、return 和 bind。 这 个 monad 可 能 是 最 简单 的 了 。 
类 型 容器 就 是 一 个 像 data Position t = Position t 的 简单 类 型 构造 器 。 它 唯一 做 的 就 是 基 
于 任意 类 型 模板 定义 了 一 个 基本 类 型 。 然 后 ， 我 们 需要 利用 return 来 将 函数 像 值 一 样 包装 起 来 。 
由 于 monad 很 简 单 ， 所 以 仪 需 返回 monad 目 己 ,， 使 用 (rtn x = x) 很 恰当 地 完成 了 包 北 。 最 后 ， 
我 们 需要 一 个 允许 组 合 函 数 的 bind。 这 里 的 bind 称 为 >>==， 并 且 将 它 定 义 为 只 能 调用 与 nonad (x 
>>== ff = ff x) 中 的 值 相关 的 函数 。 我 们 使 用 >>== 和 rtn 替 代 >>= 和 return 以 防止 与 Haskell 内 置 
的 monad 据 数 发 生 冲 突 。 

注意 ， 我 们 同时 也 重 写 了 stagger 和 craw1， 并 使 用 目 定 义 的 monad 蔡 代 了 单纯 的 整数 。 我 
们 可 以 拿 这 个 monad 试 用 一 下 。 记 住 ， 我 们 找到 了 一 种 将 舱 合 转换 为 组 合 的 语法 。 修 订 后 的 藏 宝 
图 代码 . 
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treasureMap pos = pos >>== 
stagger >>== 
stagger >>== 
crawl >>== 
rtn 


并 且 它 正如 我 们 期 望 那 样 的 工作 : 


“Main> treasureMap (Position 0) 
Position 5 


4. monad 和 do 记号 

这 种 语法 显然 更 好 一 些 ， 不 过 你 可 以 很 容易 想像 到 一 些 可 进一步 改进 它 的 语法 糖 。Haskell 
的 do 语法 恰恰 就 是 用 来 做 这 个 的 。 尤 其 是 在 解决 1/O 问 题 时 ，do 语 法 能 够 派 得 上 上 用场。 在 下 面 代 
人 码 中 ， 我 们 使 用 do 记号 从 控制 台 读 取 一 行文 学 并 将 该 行文 字 反 显 出 来 。 


haskell/io.hs 








module Main where 
tryIo = do putStr "Enter your name: " 
line <- getLine ; 
let { backwards = reverse line } ; 
return ("Hello. Your name backwards Ts ”++ backwards) 


注意 ， 程 序 一 开始 是 一 个 函数 声明 。 接 下 来 ,我们 使 用 简单 的 do 记 法 获得 了 符合 monad 的 语 
法 糖 。 这 让 程序 感 党 起 来 更 像 是 有 状态 的 和 命令 式 的 ， 不 过 我 们 实际 上 是 在 使 用 monad。 你 应 该 
了 解 一 些 语法 规则 。 

赋值 用 <-。 在 GHCI 中 ， 你 必须 用 分 号 将 代码 行 隅 开 并 且 用 括号 将 do 表达 式 和 1et 表 达 式 的 
正文 插 上 。 如 东 有 多 行 代码 ,应 该 将 每 行 代码 都 包 右 在 :{ 和 } 中。 现在， 你 终于 看 到 调用 monad 
的 包装 功能 来 构建 return 的 原因 了 , 它 将 一 个 返回 值 包装 成 一 个 do 语法 可 以 接受 的 整齐 的 形式 。 
这 些 代码 的 行为 好 似 一 个 有 状态 的 命令 式 语言 , 不 过 它 使 用 monad 来 管理 有 状态 的 交互 。 所 有 LO 
操作 都 要 紧密 封闭 起 来 ， 并 且 必 须 都 可 以 由 do 代码 块 中 的 某 个 LO monad 捕 获 。 

5. 不 同 的 计算 策略 

每 个 nonad 都 有 一 个 与 计算 相关 的 策略 。 我 们 在 喝 醉酒 的 海盗 的 例子 中 使 用 的 身份 (identity ) 
monad 只 是 将 输入 的 东西 回 显 。 我 们 使 用 它 将 一 个 藤 僚 程序 结构 转换 为 顺序 程序 结构 。 让 我 们 看 
看 为 外 一 个 例子 吧 ， 这 个 例子 看 起 来 可 能 很 奇怪 ， 一 个 列表 也 是 一 个 monad， 其 return 和 bind 
(>>= ) 国 数 的 定义 如 下 : 

instance Monad [] where 


m >>= f concatMap f m 
return x [xj 


回顾 一 下 ， monad 需 要 有 某 个 容 希 和 一 个 类 型 构造 大 ， 还 需要 一 个 用 于 包装 吨 数 的 return 方 
法 以 及 一 个 用 于 解 包 的 bind 方 法 。monad 是 一 个 类 ，[] 将 它 实例 化 ， 从 而 获得 了 类 型 构造 侨 。 接 
下 来 我 们 需要 类 似 return 的 用 来 包装 结果 的 函数 。 

对 于 列表 ， 我 们 将 列表 中 的 图 数 包装 起 来 。 要 对 其 进行 解 包 ，bind 针 对 列表 中 的 每 个 元 素 调 
用 孔 数 ， 然 后 将 得 到 的 结果 连接 在 一 起 。concat 和 map 经 常 应 用 于 序列 ， 这 实现 了 一 个 可 以 方便 
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地 同时 完成 这 两 件 事 的 图 数 ， 但 也 可 以 人 简单 地 使 用 concat (map f m) 来 实现 。 
想 了 解 列 表 monad 实 际 应 用 效果 ， 看 一 下 下 面 的 使 用 do 记号 的 代码 : 


Main> let cartesian (xs,ys) = do x <- xs; y <- ys; return (x,y) 
Main> cartesian ([1..2], [3..4]) 
[C1;3)5 (1,4);(2,.3),(2,4)] 


我 们 使 用 do 记号 和 monad 创 建 了 一 个 简单 函数 。 从 列表 xs 中 得 到 x， 从 列表 ys 中 得 到 y, 然后 
返回 x 和 y 的 每 种 组 合 。 完 成 以 上 工作 后 ， 密 码 破 解 者 程序 实现 起 来 就 变 得 很 浴 单 了 。 


haskell/password.hs 








module Main where 
eracke= do cer a oe CC | | a ce | Zz wv a 
let { password = [x, y, z] }; 
if attempt password 
then return (password, True) 
else return (password, False) 


attempt pw = if pw == "cab” then True else False 

这 里 ， 我 们 使 用 列表 monad 计 算出 了 所 有 可 能 的 组 合 。 注 意 在 这 个 上 下 文 里 ,x <- [1st] 
的 含义 是 “每 个 来 目 列 表 [1st] 中 的 元 系 x”。 我 们 让 Haskell 来 完成 这 个 困难 的 工作 。 此 时 ， 你 需 
要 做 的 只 是 尝试 测试 每 个 密码 。 密 人 码 补 便 编 码 到 attempt 员 数 中 了 。 有 多 种 计算 的 策略 可 以 用 于 
解决 类 似 列 表 推 导 的 问题 ， 不 过 这 个 问题 展示 了 在 列表 monad 背 后 的 计算 策略 。 

6. Maybe Monad 

到 目前 为 止 , 我 们 已 经 看 到 了 刁 份 nonad 和 列表 monad, 通过 后 者 , 我 们 了 解 到 monad 的 策略 
是 文 持 一 个 主要 的 计算 。 在 本 小 记 中 ， 我 们 来 看 看 Maybe monad。 我 们 将 使 用 这 个 monad 解 决 一 
个 第 见 的 编程 问题 ; 一 些 函 数 可 能 会 返回 失败 。 你 可 能 会 想到 我 们 在 讨论 关于 数据 库 和 通信 方面 
的 问题 ， 不 过 其 他 更 简单 的 API 同 样 需 要 文 持 失 败 的 策略 ， 考 夸 一 个 字符 串 搜 索 并 返回 字符 串 下 
标的 例子 。 如 果 这 样 的 字符 串 存在 ， 那 么 返回 结果 类 型 为 一 个 数字 ， 否 则 则 什么 都 不 返回 。 

把 这 样 的 计算 拼凑 到 一 起 是 乏味 单调 的 。 这 么 来 说 吧 , 假设 有 一 个 解析 网 页 的 函数 ,你 想 得 
到 HTML 页 、 这 个 页 的 正文 (body ) 以 及 正文 的 第 一 段 内 容 , 应 该 编写 具有 如 下 六 数 签名 的 函数 : 

paragraph XmlDoc -> XmlDoc 























body XmlDoc -> XmlDoc 


html XmlDoc -> XmlDoc 











它们 将 文 持 一 个 类 似 下 面 的 函数 : 

paragraph body (html doc) 

问题 是 ，paragraph、body 以 及 htm1 天 数 都 有 可 能 失败 ， 所 以 需要 文 持 一 种 可 能 是 Nothing 
的 类 型 。Haskell 具 有 这 样 的 类 型 ， 称 为 Just，]Just x 可 以 包装 Nothing 或 者 类 似 下 面 的 一 些 类 型 
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Prelude> Just "some string" 
Just "some string- 

Prelude> Just Nothing 

Just Nothing 


你 可 以 通过 模式 匹配 去 除 Just。 回 到 我 们 的 例子 中 ，paragraph、body 和 htm1 文 档 都 可 以 
返回 Just Xm1Doc。 然 后 ， 你 可 以 使 用 Haskell 的 case 语 句 (与 Erlang 的 case 语 句 行 为 相似 ) 和 模 
式 匹 配 得 到 如 下 一 些 东 西 : 

case (html doc) of 

Nothing -> Nothing 
Just x -> case body x of 
Nothing -> Nothing 
Just y -> paragraph 2 y 

这 个 结果 根本 无 法 令 人 满意 ,考虑 一 下 我 们 有 可 能 这 样 编码 paragraph 2 body (htm] doc)。 
我 们 真正 需要 的 是 Maybe monad。 

下 面 是 Maybe monad 的 定义 : 

data Maybe a = Nothing | Just a 











instance Monad Maybe where 


return = juUst 
Nothing >>= f = Nothing 
(Just x) >>= f=f x 


我 们 包装 的 类 型 是 一 个 类 型 构造 促 ， 即 Maybe a。 这 个 类 型 可 以 包装 Nothing 或 者 Just as 

return 很 容易 ， 它 只 是 包装 了 Just 的 结果 ，bind 也 很 容易 。 对 于 Nothing， 它 返回 一 个 返回 
结果 为 Nothing 的 靖 数 。 对 于 Just x， 它 返回 一 个 返回 结果 为 x 的 函数 。 两 者 都 可 以 用 return 包 
装 。 现 在 ， 你 可 以 将 这 些 操作 串联 在 一 起 : 

Just somewWebPage >>= html >>= body >>= paragraph >>= return 

这 样 ， 我 们 就 可 以 将 这 些 元 素 完 美 地 结合 在 一 起 了 。 它 工作 得 很 好 ， 因 为 monad 会 负 贡 决策 
需要 组 合 的 函数 。 








8.4.3 ”第 三 天 我 们 学 到 了 什么 


在 本 节 中 ,我 们 学 习 了 三 个 难度 较 高 的 概念 : Haskell 类 型 、 类 以 及 monad。 我 们 从 类 型 开始 ， 
尝 习 了 现 有 上 羡 数 的 推断 类 型 、 数 字 类 型 、 布 尔 类 型 以 及 字符 类 型 ， 接 下 来 我 们 进一步 学 习 了 用 户 
自 定 义 类 型 。 我 们 举 了 一 个 基本 例子 , 使 用 类 型 定义 了 由 花色 和 级 别 组 成 的 扑克 牌 。 我 们 学 到 了 
如 何人 参数 化 类 型 ， 甚 至 是 使 用 递归 类 型 定义 。 

接 下 来 ,我们 将 注意 力 完全 集中 于 对 monad 的 讨论 。 由 于 Haskell 是 一 门 纯 函数 式 编程 语言 ， 
所 以 它 很 难 表达 命令 式 风 格 的 问题 或 当 程 序 运行 时 状态 累积 的 问题 。Haskell 的 设计 者 依靠 monad 
来 解决 这 两 个 问题 。monad 是 一 个 类 型 构造 希 ， 它 包括 了 一 些 用 于 包 闻 和 将 图 数 串 联 在 一 起 的 需 
数 。 你 可 以 将 使 用 不 同类 型 容 需 的 monad 绪 合 在 一 起 ， 以 文 持 多 种 不 同 的 计算 策略 。 我 们 使 用 
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monad 为 程序 提供 了 一 种 更 加 自然 的 命令 式 风 格 和 处理 多 种 可 能 性 的 方法 。 
8.4.4 ”第 三 天 自习 
找 





口 一 些 有 关 monad 的 教程 。 
口 给 出 一 个 Haskell 中 monad 的 列表 。 
做 

口 编写 一 个 函数 ,该 函数 使 用 Maybe monad 查 找 一 个 散 列 表 值 。 编 写 一 个 散 列 表 ， 该 散 列 表 
可 以 多 级 存储 其 他 的 散 列 表 。 使 用 Maybe monad 检 索 一 个 散 列 key 对 应 的 多 级 散 列 表 中 的 
Bl 

口 用 Haskell 表 示 一 个 迷宫 ( Maze )。 你 将 需要 一 个 Maze 类 型 、 一 个 Node 类 型 以 及 一 个 返回 
给 定 坐 标 市 点 的 函数 。 这 个 市 点 应 该 具有 一 个 到 其 他 市 点 的 出 口 列表 。 

口 使 用 一 个 列表 monad 解 决 迷 宫 问 题 。 

口 在 非 浮 数 式 语言 中 实现 一 个 monad (参见 Ruby 中 的 有 关 monad 的 文章 系列 )。 


8.5” 趁 热 打 铁 


在 本 书 的 所 有 语言 中 ,Haskell 是 唯一 一 个 由 委员 会 创建 的 语言 。 随 着 具有 惰 性 机 制 的 纯 函数 
编程 语言 的 有 影响 力 迅 速 扩 大 , 一 个 委员 会 成 立 并 致力 于 构建 一 个 开放 语言 标准 , 可 以 整合 加 强 现 
有 滑 数 语言 能 力 并 满足 未 来 学 术 人 研究 的 需要 。Haskell 因 此 诞生 ， 其 1.0 版 本 在 1990 年 发 布 ， 日 那 
时 起 这 门 语 言及 其 社区 一 直 成 长 至 今 。 

Haskell 支 持 各 种 也 数 式 语言 的 特性 ， 包 括 列表 推导 、 惰 性 计算 策略 、 仿 应 用 号 数 和 柯 里 化 。 
默认 状态 下 ，Haskell 函 数 每 次 仅 处 理 一 个 参数 ， 并 使 用 柯 里 化 支持 多 参数 。 

Haskell 类 型 系统 在 类 型 安全 和 灵活 性 之 间 提 供 了 良好 的 平衡 。 完 全 多 态 的 模板 系统 为 用 户 目 
定义 类 型 和 完全 文 持 接 口 继承 的 类 型 类 提供 了 丰 曙 的 文 持 。 通 向 ,除了 在 国 数 声明 环节 ，Haskell 
程序 员 不 用 去 了 解 类 型 的 细节 ， 而 且 类 型 系统 还 可 以 防止 用 户 产 后 各 种 类 型 错误 。 

和 使 用 其 他 纯 子 数 编程 语言 一 样 , Haskell 开 发 者 在 处 理 命 令 式 风 格 程 序 和 累积 状态 时 必须 富 
有 创意 。 同 时 LO 也 是 一 项 挑战 。 洱 运 的 是 ，Haskell 开 发 者 可 以 通过 monad 解 决 这 些 问题 ，monad 
是 一 个 类 型 构造 右 和 一 个 容 颖 ,后 者 文 持 将 函数 以 值 的 形式 包装 和 人 解 包 的 基本 也 数 , 不 同 的 容 需 
类 型 提供 不 同 的 计算 末 略 ， 这 些 函 数 人 允许 程序 员 将 monad 以 有 趣 的 方式 串联 在 一 起 。Haskell 提 供 
do 语法 ， 这 个 语法 糖色 持 有 一 定 约束 的 命令 式 风 格 语法 。 


8.5.1 核心 优势 


由 于 Haskell 采 用 了 完全 的 纯 冰 数 方法 ,没有 任何 妥协 ,因此 其 优 执 和 不 足 之 处 也 都 十 分 明显 。 
让 我 们 逐一 来 说 明 吧 。 


















































GD http://moonbase.rydia.net/mental/writings/programming/monads-in-ruby/00introduction.html。 一 一 原 书 注 
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如 果 你 喜欢 强 类 型 ( 也 许 你 可 能 不 喜欢 )， 你 将 喜欢 上 Haskell 的 类 型 系统 ， 它 召 之 即 来 ， 挥 
之 即 去 。 这 个 类 型 系统 可 以 帮助 我 们 避免 常见 错误 , 并 且 这 些 常见 错误 可 以 在 编译 阶段 被 捕获 而 
不 是 运行 阶段 。 不 过 安全 性 只 是 类 型 系统 的 一 部 分 特性 。 

也 许 Haskell 类 型 最 具 吸 引力 的 地 方 就 是 , 可 以 方便 地 将 新 行为 与 新 类 型 关联 到 一 起 。 你 可 以 
从 头 开始 创建 一 个 高 级 类 型 。 使 用 类 型 构造 器 和 类 , 你 甚至 可 以 毫 不 费力 地 定义 出 非常 复杂 的 类 
型 和 类 ， 诸 如 monad。 有 了 类 ， 自 定义 的 新 类 型 可 以 利用 现 有 的 Haskell 标 准 库 。 

2. 表现 力 

Haskell 语 言 的 功能 异乎 寻常 的 强大 。 从 抽象 意义 上 说 , 它 拥有 用 于 简洁 地 表达 强大 功能 概念 
的 所 有 东西 。 这 些 概念 包括 了 通过 丰富 的 函数 库 和 功能 强大 的 语法 所 表现 出 的 行为 。 那 些 概念 还 
扩展 到 用 于 创建 类 型 的 数据 类 型 中 , 甚至 是 无 需 过 多 语法 即 可 将 适当 函数 绑 定 到 适当 数据 上 的 递 
归 类 型 。 在 学 术 环境 中 , 你 再 也 找 不 到 比 Haskell 更 强大 的 函数 式 编 程 教学 语言 了 ,所 有 你 需要 的 
一 切 都 在 那里 。 

3. 编程 模型 的 纯洁 性 

纯洁 的 编程 模型 可 以 从 根本 上 改变 你 解决 问题 的 方式 , 它 会 迫使 你 放下 旧 的 编程 范 型 去 拥抱 
不 同 的 做 事 方 式 。 纯 函数 式 编程 语言 赋予 你 可 以 依赖 的 东西 。 给 定 相 同 的 输入 ， 哨 数 将 总 是 返回 
相同 的 结果 ， 这 个 属性 使 得 程序 推导 变 得 更 加 容易 。 有 时 ， 你 可 以 证 明 出 程序 是 对 的 还 是 错 的 。 
你 也 可 以 避免 许多 因 副 作用 而 导致 的 错误 , 诸如 意外 的 复杂 性 和 不 稳定 , 或 者 并 发 情况 下 的 缓慢 
行为 。 

4. 情 性 机 制 

几何 时 , 用 也 数 式 编程 语言 编程 就 意味 着 使 用 递归 。 惰性 计算 机 制 提供 一 整套 处 理 数据 的 
新 策略 。 你 总 是 可 以 构建 出 表现 更 好 的 程序 , 并 且 与 采用 另外 一 种 策略 相 比 , 代码 行 只 是 后 者 全 
部 代码 行 的 一 小 部 分 。 

5. 学 术 支 持 

一 些 最 重要 、 最 有 影响 力 的 语言 诸如 Pascal 成 长 于 学 术 界 ， 并 受益 于 在 学 术 环境 下 的 研究 和 
使 用 。 作 为 函数 式 编程 技术 的 主要 教学 语言 ，Haskell 持 续 改 善 和 成 长 。 虽 然 它 还 不 完全 是 一 门 主 
流 编程 语言 ， 但 你 总 是 可 以 发 现 一 些 程序 员 使 用 它 完 成 一 些 重要 的 工作 。 


8.5.2 不 足 之 处 
到 目前 为 止 , 没有 哪 门 语言 可 以 完美 地 适合 所 有 任务 。Haskell 的 优势 互补 通常 也 有 其 不 足 的 


















































一 面 。 
1. 编程 模型 不 灵活 

作为 一 门 纯 函数 编程 语言 ，Haskell 提 供 了 一 些 好 处 ,不 过 同时 也 市 来 一 些 让 你 头疼 的 事情 。 
你 可 能 已 经 注音 到 了 使 用 monad 编 程 是 本 书 关 于 编程 语言 的 最 后 一 革 的 最 后 一 方 ， 这 是 理所当然 
的 。 这 些 概 念 有 关 较 局 的 能 力 要 求 。 不 过 我 们 使 用 monad 做 了 一 些 在 其 他 语言 中 看 起 来 微不足道 
的 事情 ， 诸 如 编写 命令 式 风 格 的 程序 、 处 理 VO 其 至 是 处 理 那 些 也 许 找 到 值 也 许 没 找 到 值 的 列表 
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负数 。 我 之 前 谈论 其 他 编程 语言 时 曾 提 到 过 , 这 里 我 要 再 次 重申 一 下 。 虽 然 Haskell 把 一 些 困 难 的 
事情 变 得 简单 了 ， 但 同时 它 也 把 一 些 简 单 的 事情 变 得 困难 了 。 

特定 的 风格 导致 特定 的 编程 范 型 。 当 构建 一 个 逐步 进行 的 算法 时 , 命令 式 语 言 会 工作 得 很 好 。 
哨 数 式 编程 语言 不 适合 VO 密集 和 脚本 任务 。 在 某 个 人 眼中 的 纯洁 性 也 许 在 男 外 一 个 人 看 来 更 像 
是 一 次 失败 的 妥协 。 

2. 社区 

说 到 妥协 ， 你 可 以 看 到 Scala 和 Haskell 所 采用 方法 的 不 同 之 处 。 虽 然 两 者 都 是 强 类 型 的 ， 但 
两 者 从 根本 上 具备 不 同 的 设计 上 哲学。S$cala 的 一 切 都 关于 妥协 ， 而 Haskell 的 一 切 都 关于 纯洁 。 通 
过 作出 受 协 ，Scala 在 初始 阶段 束 吸 引 T 了 比 Haskell 更 大 的 社区 。 虽 人 然 无 法 通过 编程 社区 的 大 小 来 
衡量 语言 的 成 功 , 但 是 要 成 功 就 必须 拥有 足够 数量 的 文 持 者 , 并 且 拥 有 更 多 的 用 户 可 以 提供 更 多 
的 机 会 和 社区 资源 。 

3. 学 习 曲 线 

monad 并 韭 Haskell 中 唯一 学习 难 上 度 较 高 的 概念 。 柯 里 化 用 于 每 个 参数 个 数 多 于 一 个 的 函数 
中 。 大 多 数 基本 也 数 具有 参数 化 的 类 型 ， 并且 应 用 于 数字 的 函数 常常 使 用 类 型 类 ,虽然 最 终 回报 
可 能 是 值得 的 , 但 是 你 必须 是 一 个 拥有 牢固 理论 基础 的 坚强 程序 员 , 这 样 你 才能 有 机 会 在 Haskell 
上 获得 成 功 。 






























































8.5.3 最 后 思考 


在 本 书 所 介绍 的 全 部 函数 式 编程 语言 中 ，Haskell] 是 最 难 学 的 语言 。 把 重点 放 在 monad 和 类 型 
系统 上 让 学 习 曲 线 变 得 十 分 陡 蚜 ， 不 过 一 旦 我 掌握 了 其 中 一 些 关 键 概 仿 ， 事情 就 变 得 容易 许多 ， 
它 也 成 为 了 我 学 过 的 回报 最 高 的 声言 。 基 于 类 型 系统 以 及 monad 应 用 的 优雅 ， 总 有 一 天 ， 你 会 回 
过 头 来 看 看 这 门 本 书 中 最 重要 的 培 言 。 

Haskell 还 扮 读 着 态 外 一 个 角色 。 其 方法 的 纯 清 性 和 学 术 天 注 都 将 会 提高 我 们 对 编程 的 认 知 。 
下 一 代 最 好 的 函数 式 编 程 程序 员 将 会 从 Haskell 中 获得 许多 初步 经 验 。 
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藉 豆 ! 你 已 经 顺利 完成 了 全 部 七 门 编程 语言 的 和 学习。 或许 你 现在 有 所 期 符 ,， 硕 望 最 后 这 章 会 
将 这 些 博 言 分 出 个 高 下 ， 选 出 哪些 是 胜利 者 ， 哪 些 是 失败 者 ， 然 而， 本 书 与 胜 败 晓 不 相干 。 本 书 
所 要 关注 的 是 如 何 激发 你 的 思想 火花 。 如 今 的 你 , 也 许 与 职业 生涯 早期 的 我 十 分 相似 一 一 同 是 菏 
个 缺乏 想象 力 的 庞大 项 目 组 中 的 一 员 , 深 陷于 各 种 各 样 的 商业 项 目的 泥沼 之 中 。 与 其 说 这 是 项 目 
组 , 不 如 说 是 以 机 械 化 方式 生产 软件 的 工厂 ， 纯 把 人 当 机 帮 使 。 环 境 如 此 不 堪 ， 接触 各 种 编程 语 
言 的 机 会 自然 少 得 可 怜 。 那 时 的 我 , 就 好 比 某 个 酷爱 电影 的 家 伙 ， 却 大 于 偏远 小 镇 , 镇 上 只 有 一 
家 电影 院 ， 放 的 还 都 是 些 所 谓 的 “大 片 ”。 

直到 我 目 立 门户 , 开始 日 己 生产 软件 时 , 我 才 真 正 领略 到 独立 影片 之 妙 。Ruby 在 我 手中 ， 俐 
下 就 是 出 神 入 化 。 不 过 话说 回来 , 我 也 没 那 么 天 真 , 会 认为 Rupy 能 解决 一 切 问题 。 就 像 独立 电影 
不 断 推 动 电影 业 发 展 那样 ， 这 些 新 兴 的 编程 语言 也 在 改变 我 们 的 组 织 以 及 编写 程序 的 思维 方式 。 
下 面 我 们 束 一 起 回顾 一 下 ， 纵 观 全 书 ， 我 们 到 抵 学 到 了 什么 。 



































9.1 编程 模型 


编程 模型 发 展 得 极为 缓慢 。 时 至 今日 我 们 发 现 , 大 约 每 过 20 年 ， 才 会 有 一 些 新 的 编程 模型 消 
现 出 来 。 回 想 我 刚 接触 编程 那 会 儿 ， 我 是 从 Basic 和 Fortran 这 样 的 过 程式 语言 学 起 的 ， 到 了 大 学 ， 
通过 学 习 Pascal， 我 明白 了 结构 化 编程 是 怎么 回 事 ,进入 IBM 之 后 ,我 开始 用 C 和 C++ 编写 商业 软 
件 ， 之 后 ， 又 初步 认识 了 Java。 这 样 一 来 ， 我 踏 进 了 面 癌 对 象 编程 的 世界 。 我 干 编程 这 行 三 十 多 
年 ,也 只 见 过 区 区 两 种 编程 范 型 。 你 大 概 会 奇怪 ， 既 然 就 见 过 两 种 ， 那 干吗 还 积极 介绍 另外 几 种 
汇 型 呢 ?” 咽 ， 这 是 个 不 错 的 问题 。 

这 是 因为 ,尽管 编程 范 型 发 展 很 慢 ,， 但 它 的 确 在 不 断 发 展 着 。 它 就 像 肆 虐 的 龙卷风 ， 所 到 之 
处 一 片 狠 厌 ， 只 不 过 , 它 摊 毁 的 是 那些 目光 短 浅 的 程序 员 和 软件 公司 的 前 途 。 当 你 发 党 目 己 正在 
为 某 种 编程 范 型 而 内 心 纠 结 时 ， 小 心 了 , 这 可 不 是 什么 好 信和 号。 眼下,， 并 发 编程 和 可 徘 性 编程 都 
在 一 点 点 地 改变 着 高 级 编程 语言 的 发 展 方向 。 我 认为 , 治 看 当前 的 方 问 发 展 , 即便 最 翡 观 的 结 
也 会 有 越 来 越 多 的 解决 特定 问题 的 专用 语言 出 现在 我 们 面前 。 下面 我 们 看 看 ,本 书 都 讲 到 了 哪些 
编程 范 型 。 
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9.1.1 面向 对 象 (Ruby、Scala) 


如 今 ， 面 问 对 象 无 疑 是 最 强势 的 编程 范 型 ， 而 Java 正 是 面 问 对 象 语言 的 盘 型 代表 。 这 种 范 型 
有 三 大 主要 思想 : 封装 、 继 承 和 多 态 。 通 过 学 习 Ruby,， 我 们 知道 了 什么 是 蝎子 类 型 。 它 不 是 用 类 
或 对 和 象 的 定义 施加 某 种 类 型 契约 ， 而 是 根据 对 象 支 持 的 方法 确定 类 型 。 我 们 也 了 解 到 ,通过 代码 
块 ，Ruby 能 实现 一 些 函 数 式 编程 思想 。 

Scala 同 样 提 供 了 面 回 对 象 编程 范 型 。 尽 管 它 文 持 的 是 静态 类 型 ， 然而, 因 其 具有 类 型 推 凯 等 
用 于 简化 语法 的 特征 ,因此 比 Java 何 洁 得 多 。 通 过 类 型 推 新 这 一 特征 ，Scala 可 根据 其 语法 和 用 法 
中 的 蛛丝马迹 ， 目 动 推导 出 变量 类 型 。 在 引入 困 数 式 思想 这 方面 ，Scala 甚 至 更 胜 Ruby 一 筹 。 

这 两 门户 言 现今 都 已 广泛 用 于 产品 级 应 用 当中 。 而 且 相 比 于 Java 这 样 的 主流 语言 ， 它 们 都 代 
表 独 语言 设计 的 非凡 进步 。 同 时 ， 面 辐 对 象 语言 也 有 不 少 变种 。 下 面 这 种 编程 范 型 一 一 原型 语言 
证 是 其 中 之 -6 






































9.1.2 ”原型 编程 (lo0) 


你 或 许 认为 , 原型 语言 不 过 是 面 品 对 象 语 言 的 一 个 子 集 而 已 。 然 而, 二 者 在 编程 实践 当中 的 
区 别 是 非常 明显 的 , 因此 我 们 将 原型 语言 作为 一 种 独立 的 编程 模型 加 以 介绍 。 和 其 他 使 用 类 来 编 
程 的 语言 不 同 , 在 原型 语言 中 ， 所 有 原型 部 是 对 象 实例 ， 其中， 茶 些 实例 经 过 特别 设计 ， 可 用 作 
其 他 对 象 实例 的 原型 。 原 型 语言 家 族 的 成 员 包括 JavaScript 和 Io， 它 们 既 有 简洁 明了 的 形式 ， 又 有 
强大 的 表达 能 力 , 且 通 常 是 动态 类 型 语言 , 因此 在 脚本 开发 、 应 用 开发 , 尤其 在 用 户 界 面 等 方面 ， 
表现 都 十 分 出 色 。 

正 像 Io 所 展示 的 那样 ， 即 便 只 是 简单 的 编程 村 型 ， 但 右 娘 终 保持 语法 的 小 巧 、 何 涪 ， 也 同样 
能 变 得 威力 强大 。 我 们 已 经 把 Io 语 言 应 用 到 了 各 种 各 样 的 环境 当中 ， 从 脚本 并 发 编程 ， 到 编写 日 
己 的 DSL。 但 在 本 书 中 ， 原 型 编程 还 算 不 上 最 专用 的 范 型 。 









































9.1.3 ”约束 -逻辑 编程 〈Prolog ) 


Prolog 出 身 于 一 个 专用 于 约束 - 逻辑 编程 的 语言 家 族 。 我 们 用 Prolog 编 写 各 种 应 用 ， 全 是 为 
了 解决 一 小 类 问题 。 然 而 ,解决 这 一 小 类 问题 获得 的 成 果 却 厨 为 壮观 。 人 简单 地 说 ， 这 类 问题 为 某 
个 已 知 问题 域 定 义 一 些 逻 辑 约束 ， 然 后 就 可 以 用 Prolog 求 出 这 类 问题 的 解 。 

要 是 编程 模型 符合 这 种 范 型 , 我 们 就 能 仅 用 一 人 小段 代码 , 完成 其 他 语言 号 好 多 行 代 但 才能 做 
到 的 事 。 这 一 语言 家 族 打造 了 许多 当今 世界 至 关 重 要 的 应 用 ， 比 如 航空 交通 管制 、 土 木工 程 等 。 
在 其 他 声言 如 C 和 Java 当 中 , 也 有 一 些 粗 糙 的 逻辑 规则 引擎 。 此 外 ,Prolog 还 是 Erlang 的 灵感 之 源 。 
说 到 Erlang， 它 来 自 于 本 书 介绍 的 男 一 大 语言 家 族 。 
































9.1.4 ”函数 式 编程 (Scala、Erlang、Clojure、Haskell) 














胃 数 式 编程 或 许 是 本 书 寄 子 厚望 的 编程 范 型 。 虽 然 在 图 数 式 才 言 里 ， 有 的 惟 精 惟一 ， 有 的 驭 9 
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杂 不 纯 , 但 它们 都 缠 含 者 同一 思想 。 也 数 式 程序 由 数 竺 函数 构成 , 调用 同一 个 函数 ， 部 会 返回 同 
样 的 结果 ， 尽 可 能 地 避免 副作用 ， 其 至 闫 格 禁 止 。 人 至 于 如 何 号 这 些 隙 数 ， 方 式 可 以 多 种 多 样 。 

你 已 经 了解 到 ,函数 式 编程 语言 通常 比 面 向 对 象 语 言 有 更 强 的 表达 能 力 。 用 它们 写 的 代码 显 
得 比 面 加 对象 声 言 更 短小 精 俘 ， 因 为 它们 用 来 编程 的 手段 要 丰 军 得 多 。 我 们 介绍 了 高 阶 晒 数 ， 还 
有 柯 里 化 这 样 的 复杂 概念 ， 而 这 些 概念 , 在 面 问 对 象 语 言 中 是 难得 一 见 的 。 我 们 在 Haskel] 那 一 章 
党 到 过 ， 函 数 式 的 纯正 程度 会 产生 不 同 的 优 缺 点 。 对 函数 式 语言 来 次 ,避免 副作用 是 显 而 匈 见 的 
优势 , 这 能 使 并 发 编程 不 再 棘手 。 一 且 可 变 状 态 的 阴 手 烟消云散 ,许多 传统 的 并 发 问题 也 就 迎 刃 
而 解 了 。 





























9.1.5” 范 型 演进 之 路 


如 果 你 下 定 决 心 ， 以 后 多 用 肾 数 式 语言 来 编程 ,那么 有 几 条 路 可 供 你 选择 ,你 既 可 以 彻底 与 
OOP 决 裂 ， 也 可 以 选择 较为 温和 的 渐进 策略 。 

我 们 学 这 七 门 语 言 花 了 不 少 心 力 , 但 也 见识 到 了 吡啶 风云 四 十 余 载 的 几 门 语言 , 以 及 多 种 编 
程 范 型 。 但 愿 你 现在 已 经 对 编程 语言 的 演化 有 了 一 个 正确 认识 。 你 可 以 看 到 三 条 截然 不 同 的 范 型 
演进 之 路 。 对 Scala 而 言 ， 其 路 线 是 和 谐 共 处 。Scala 程 序 员 可 以 用 浓重 的 图 数 式 风格 写 出 面向 对 
象 程序 。Scala 这 门 霹 言 最 根本 的 性 质 , 就 是 两 种 编程 范 型 平起平坐 。Clojure 走 的 路 子 是 鳞 收 并 蓄 。 
Clojure 拱 建 在 JVM 之 上 , 它 的 应 用 程序 能 直接 使 用 Java 对 象 。 但 Clojure 的 理念 认为 OOP 的 某 些 基 
本 元 系 具 有 根本 人 缺陷。 因此， 与 Scala 不 同 的 是 ，Clojure 通 过 Clojure-Java 互 操作 〈 Clojure-Java 
Interop ) 去 利用 Java 虚 拟 机 上 的 现 有 框 嫌 ， 而 不 是 去 扩展 Java 语 言 本 身 。Haskell 和 Erlang 差 不 乡 算 
是 独立 语言 。 从 思想 上 说 ,它们 在 任何 形式 上 都 和 面 癌 对 象 编 程 不 沾边 。 综 上 所 述 ， 你 既 可 以 同 
时 采用 两 种 范 型 ,也 可 以 和 面向 对 象 彻底 决裂 ,还 可 以 骑 驴 找 马 一 一 先 用 春 面 问 对 象 库 ， 以 后 再 
决定 是 否 抛弃 OOP 范 型 。 这 三 条 路 任 由 你 选择 。 

无 论 是 否 选 用 本 书 介绍 的 语言 , 你 都 能 比较 透彻 地 了 解 面前 的 选择 ,作为 翡 催 的 Java 开 发 者 ， 
我 不 得 不 为 闭 包 奋 奇 等 上 十 年 ， 只 因 像 我 这 样 热切 期 盼 闭 包 的 人 都 是 “ 文 有 是 ”或 “ 半 文 是 ”"， 没 
法 给 财 包 摇 旗 呐 喊 、 或 吹 造 势 ， 也 因为 Spring 这 类 主流 框 名 ， 坚 持 用 匿名 内 部 类 来 解决 大 量 本 可 
用 闭 包 解 决 的 问题 。 没 有 闭 包 ，, 输入 代码 的 工作 就 太 繁重 了 ,我 的 手指 尖 都 琶 出 血 了 ; 阅读 代码 
的 任务 也 不 轻 ， 我 的 双眼 也 布 满 了 红 红 的 血丝 。 现 在 的 Java 程 序 员 再 不 会 像 从 前 那样 一 无 所 知 、 
任 人 罕 制 ， 因 为 Martin Odersky 和 Rich Hickey 这 样 的 人 为 我 们 提供 了 众多 其 他 选择 ， 这 些 选 择 不 
仅 推 动 编程 语言 水 平 的 不 断 提 高 ， 也 通 迫 Java 或 不 断 进 步 、 或 被 潮流 淘汰 。 


9.2 并 发 
本 书 反 复出 现 的 主题 , 就 是 找到 能 更 好 地 处 理 并 发 的 语言 结构 和 编程 模型 。 本 书 所 介绍 的 这 


些 语言 ,在 处 理 并 发 的 方法 上 各 有 不 同 , 但 相同 的 是 ,它们 处 理 并 发 都 极为 有 效 。 让 我 们 再 来 浏 
多 一 吉之 前 见 过 的 这 些 方法 。 
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9.2.1 控制 可 变 状 态 

















迄今 为 止 , 天 于 并 发 的 讨论 中 最 稼 见 的 主题 就 是 编程 模型 。 面 问 对 象 编程 会 导致 副作用 和 可 
变 状 态 。 右 综合 考虑 这 两 个 因 系 ,程序 就 会 变 得 异常 复杂 。 当 多 个 线程 和 进程 共同 使 用 时 , 复杂 


性 会 高 到 难以 控制 。 

函数 式 编 程 语言 增加 了 一 条 重要 规则 , 也 因此 增加 了 结构 。 多 次 触发 同一 函数 将 产生 相同 结 
果 。 变 量 是 单 赋 值 的 。 消 除了 副作用 , 苋 争 条件 和 一 切 与 副作用 相关 的 复杂 性 也 就 随 之 消除 。 然 
而 , 我 们 还 见 到 了 基本 编程 模型 之 外 的 一 些 切 实 有 效 的 技术 。 下面 , 我 们 就 来 仔细 看 看 这 些 拉 术 。 








9.2.2 lo、Erlang 和 Scala 中 的 actor 


无 论 用 对 象 还 是 进程 ，actor 方 法 都 始终 如 一 。 它 获取 从 对 象 内 部 发 出 的 非 结 构 化 的 进程 间 通 
言 ， 将 其 转化 为 头等 结构 之 间 的 消息 传递 ， 且 每 个 actor 都 拥有 一 个 消息 队列 。Erlang 和 Scala 语 言 
使 用 模式 匹配 ， 对 传递 进来 的 消息 进行 匹配 ， 然 后 根据 条 件 执 行 它 们 。 在 第 6 章 ， 我 们 举 了 个 俄 
罗斯 轮 盘 赌 的 例子 ， 来 说 明 什 么 是 濒 死 进程 。 还 记得 吧 ， 我 们 把 弹子 放 在 了 第 三 格 中 : 


erlang/roulette.erl 








-module(roulette). 
-export([1o00p/0]). 


% send a number, 1-6 
loop() -> 
receive 
3 -> io:format("bang.~n"), exit({roulette,die,at,erlang:time()}); 
_ -> 1io:format("click~n"), lo00pQ) 
end. 


然后 ， 我 们 启动 一 个 进程 Gun ， 并 赋 给 它 ID。 我 们 可 以 用 Gun ! 3 终止 该 进程 。Erlang 的 语言 
和 虚拟 机 支持 健壮 的 监控 ， 可 以 在 出 现 问题 的 第 一 时 间 通 知 用 户 ， 甚 至 重启 进程 。 


9.2.3 future 


除 actor 之 外 ，Io 还 添加 了 两 种 并 发 结构 : 协 程 和 future。 协 程 可 让 两 个 对 象 合作 人 处 理 多 任 
务 ， 而 它们 又 能 各 目 选 择 适 当时 机 放弃 控制 权 。 回 想 一 下 ，future 就 好 比 长 时 运行 的 并 发 计算 
的 占 位 符 。 

我 们 执行 过 一 条 语句 futureResult := URL with("http://google.com/") Qfetch。 虽 
然 它 无 法 立即 获得 结果 ， 但 程序 控制 权 却 能 马上 回 到 我 们 手中 。 只 有 当 我 们 试图 访问 future 时 ， 
程序 才 会 阻塞 。 到 产生 结果 的 时 候 ，Io 的 future 会 目 动 转化 为 该 结果 。 











9.2.4 事务 型 内 存 


在 Clojure 中 ， 我 们 见识 到 了 一 些 有 趣 的 并 发 处 理 方法 。 软 件 事 务 型 内 存 (Software 
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Transactional Memory，STM ) 包装 了 事务 中 某 个 共 至 资源 的 每 一 个 分 布 式 访问 。 相同 的 方法 也 可 
用 于 数据 库 对 象 ， 能 在 触发 并 发 操作 时 保持 数据 库 的 完整 性 。 我 们 在 dosync 吨 数 中 封装 了 每 一 
个 访问 。 用 了 这 种 方法 ，Clojure 开 发 者 就 能 摆脱 严格 的 函数 式 设 计 ， 写 出 合理 的 代码 ， 同 时 在 多 
个 线程 和 进程 间 保持 完整 性 。 

STM 是 一 种 相对 来 说 较 新 的 思想 ， 正 逐渐 被 越 来 越 多 的 流行 语言 所 采用 。 因 为 Lisp 是 一 门 多 
范 型 语言 ， 所 以 Clojure 作 为 Lisp 的 传人 ， 用 起 STM 来 也 是 得 心 应 手 。 当 用 户 确 信和 即使 处 在 高 并 发 
访问 的 条 件 下 , 应 用 程序 也 能 保持 完整 性 和 高 性 能 , 那么 ,他们 就 能 放心 使 用 各 种 不 同 的 编程 范 
型 了 。 

下 一 代 程 序 员 会 对 他 手中 的 编程 语言 提出 更 多 要 求 。 光 是 给 个 方向 盘 和 变速 杆 , 能 发 动 线程 ， 
并 在 出 现 信 号 灯 时 停 下 来 等 符 ， 这 些 已 经 满足 不 了 他 们 了 。 新 式 语 言 必 须 有 条 理 清 晰 、 前 后 一 臻 
的 并 发 处 理 思想 , 还 要 有 与 之 配套 的 一 组 方法 。 或 许 这 样 的 并 发 需求 会 使 现 有 的 编程 范 型 全 都 过 
时 ,但 它 同 样 可 能 督促 较 老 的 语言 与 时 俱 进 ,使 其 对 可 变 状 态 采 用 更 严格 的 控制 措施 ， 并 采用 
actor 和 future 这 样 更 出 色 的 并 发 结构 。 


9.3 ”编程 结构 


写 这 本 书 最 激动 人 心 的 事 , 就 是 把 书 中 各 门 语 言 的 基本 元 素 展 现在 读者 面前 。 每 当 我 介绍 一 
门 新 语言 ,都 会 将 其 与 众 不 同 的 新 思想 进行 一 番 讲 解 。 下 面 是 你 探索 其 他 语言 时 很 可 能 遇 到 的 一 
些 编 程 结构 。 同 时 ， 它 们 也 是 我 探索 语言 得 到 的 最 宝 贯 的 财 亩 。 


9.3.1 列表 解析 


正如 你 在 Erlang、Clojure 和 Haskel 中 看 到 的 那样 ， 列 表 解 析 是 一 种 简洁 而 紧凑 的 结构 ， 它 
在 结构 中 融合 了 入 选 希 、 有 映射 、 笛 卡 儿 积 等 几 种 概念 ， 使 这 种 结构 变 得 非常 强大 。 

第 一 次 遇见 列表 解析 , 是 在 介绍 Erlang 那 章 。 我 们 先是 用 Cart = [{penci1, 4, 0.25}, {pen,， 
1，1.2031，{fpaper，2，0.201}] 这 样 的 列表 ， 表 示 添 加 了 商品 的 购物 和 车。 然后， 如 有 果 想 为 列表 
加 上 税 球 元 素 ， 只 需 用 一 条 列表 解析 语句 ， 问 题 马上 就 能 迎刃而解 。 如 下 所 示 : 


8> WithTax = [i{Product, Quantity, Price, Price ”* Quantity %: 0.08} || 
8> {Product, Quantity, Price} <- Cart] . 
[{pencil,4,0.25,0.08},{pen,1,1.2,0.096}, {paper,2,0.2,0.032}] 


几 位 语言 发 明 者 都 不 约 而 同 地 提 到 ， 列 表 解 析 是 他 们 最 钟爱 的 特性 之 一 。 对 他 们 这 一 见解 ， 
我 亦 是 这 表 赞同 。 






























































9.3.2 monad 


要 说 写 这 本 书 让 我 在 哪个 领域 的 知识 增长 最 多 ， 那 可 能 还 得 是 monad。 在 纯正 的 晒 数 式 场 言 





(DD Scala 同 样 支持 列表 解析 ， 只 是 我 们 没有 用 到 它们 。 一 一 原 书 注 
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中 ， 我 们 不 能 用 可 变 状 态 编程 ， 但 我 们 可 以 编写 nonad，monad 有 助 于 对 问题 进行 结构 化 ， 让 我 
们 写 函 数 时 感觉 可 变 状 态 可 用 。Haskell 中 具有 monad 特 性 的 do 符号 ， 就 是 用 来 解决 可 变 状态 这 一 
问题 的 。 

我 们 还 发 现 ，monad 能 简化 复杂 计算 。 每 一 个 单子 都 提供 了 一 种 计算 策略 。 我 们 使 用 Maybe 
monad 处 理 失 败 条 件 ， 比 如 ， 可 能 返回 Nothing 的 列表 搜索 。 此 外 ， 我 们 还 用 List monad 计 算 币 
卡 儿 积 并 破解 组 合 数 。 





9.3.3 ”匹配 


我 们 在 书 中 见 过 的 更 为 常用 的 一 种 编程 特性 是 模式 匹配 。 我 们 首次 见 到 这 种 编程 结构 是 在 
Prolog 中 ， 但 Scala、Erlang、Clojure 和 Haskell 中 也 出 现 过 。 这 些 语言 都 借助 模式 匹配 的 力量 ， 极 
大 地 简化 了 代码 。 模 式 匹 配 可 解决 的 问题 包括 语法 分 析 、 分 布 式 消息 传递 、 解 构 、 合 一 、XML 
处 理 。 等 考 。 

说 到 则 型 的 Erlang 模 式 匹 配 ， 请 回想 一 下 Erlang 那 草 实现 过 的 翻译 服务 : 


erlang/translate_service.erl 








-module(translate service). 
-export([1loop/0, translate/21). 


1o0p() -> 
receive 
{From, "casa"”} -> 
From ! "house", 
1oop() ; 


{From, "blanca”} -> 
From ! "white”", 
1oop() ; 


{From, _} -> 
From ! "I don't understand.", 
lo00pQ 


end. 


translate(To, Word) -> 
To ! {self(), Word}, 
receive 
Translation -> Translation 
end. 


这 个 循环 冰 数 匹配 后 接 单词 ( casa 或 blanca ) 或 通配符 的 进程 ID ( From )。 这 一 模式 匹配 无 
需 借 助 程 序 员 编写 的 语法 分 析 ， 就 能 快速 提取 消息 中 的 重要 部 分 。 
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9.3.4 合 一 


Prolog 用 到 了 合 一 ， 合 一 和 模式 匹配 的 关系 ， 就 像 表 兄 第 一 样 。 你 已 经 学 过 ，Prolog 可 将 合 
法 值 蔡 换 到 规则 内 ， 从 而 使 规则 的 左右 两 边 匹 配 。Prolog 会 尝试 不 同 的 值 ， 下 到 穷尽 所 有 合法 值 
为 止 。 我 们 在 Prolog 那 曹 见 过 一 个 简单 的 程序 concatenate， 以 作为 合 一 的 示例 : 


prolog/concat.pl 








concatenate([], List, List). 
concatenate([Head|Tail1l], List, [Head|Tail12]) :- 
concatenate(Taill, List, Tail2). 


我 们 知 违 ， 合 一 能 让 程序 威力 大 增 ， 因 为 它 有 三 大 功效 : 测试 真 值 、 匹 配 左 端 、 匹 配 右 闪 。 


9.4 发 现 自己 的 旋律 


整 本 书 中 , 我 们 谈论 了 很 多 电影 和 电影 角色 ,， 其实, 拍 电 影 的 乐趣 就 在 于 把 自己 的 经 历 和 体 
验 融 入 到 演员 、 场 地 、 外 景 之 中 , 让 它们 来 讲述 你 想 要 讲述 的 故事 。 你 所 做 的 一 切 都 是 为 了 取悦 
观众 。 你 知道 得 越 多 ， 拍 出 来 的 电影 也 就 越 精彩 。 

我 们 需要 以 同样 方式 思考 编程 。 和 电影 一 样 ， 程 序 也 有 观众 。 不 过 , 我 说 的 观众 并 不 是 使 用 
应 用 程序 的 用 户 ， 而 是 阅读 代码 的 人 。 想 成 为 一 名 伟大 的 程序 员 ， 你 必须 为 你 的 观众 编写 代码 ， 
找到 愉悦 他 们 的 独特 旋律 。 如 果 你 明白 其 他 语言 都 提供 了 哪些 特性 , 那 你 就 有 更 大 的 空间 来 发 现 
这 种 旋律 , 并 能 不 断 对 其 加 以 精炼 和 改进 。 你 通过 代码 表达 自我 的 方式 , 就 是 你 独一无二 的 旋律 。 
而 这 旋律 , 一 定 来 自 于 你 的 亲身 经 历 与 体验 ,我 希望 这 本 书 能 帮 你 找到 自己 的 旋律 , 最 重要 的 是 ， 
希望 你 乐 在 其 中 。 
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Seven Languages ln Seven Weeks 
A Pragmatic Guide to Learning Programming Languages 


七 周 七 语言 理解 多 种 编程 范 型 





“为 了 了 解 更 多 的 范例 ， 提 高 编程 水 平 ， 我 读 了 很 多 相关 的 技术 书 ， 其 中 不 乏 让 人 拍案 叫绝 之 作 ， 本 书 即 是 一 例 。 
Bruce 有 丰富 的 学 习 经 历 和 使 用 多 种 语言 的 经 验 ， 他 把 一 些 杰 出 的 范例 很 好 地 组 合 到 了 一 起 ， 让 读者 从 他 的 这 些 经 验 中 有 
所 斩获 。 我 极力 推荐 ! ” 

一 一 Vankat Subramaniam 博 士 ，Agile Developer 公 司 创始 人 ， 敏 捷 开 发 权威 


“看 过 这 本 书后 ， 我 解决 问题 的 思路 扩 宽 了 ， 学 习 新 语言 的 热情 也 被 点 燃 了 。” 
一 一 Travis Kaspar，Northrop Grumman 公 司 软 件 工程 师 


从 计算 机 发 展 史 早期 的 Cobol、Fortran 到 后 来 的 C、Java， 编 程 语 言 的 家 族 不 断 壮大 。 除 了 这 些 广为人知 的 语言 外 ， 
还 涌现 了 Erlang、Ruby 等 后 起 之 秀 ， 它 们 虽 被 喻 为 小 众 语言 ， 但 因 其 独特 性 也 吸引 了 为 数 不 少 的 追随 者 。 

Bruce A. Tate 是 软件 行业 的 一 名 老兵 ， 他 有 一 个 宏伟 目标 : 用 一 本 书 的 篇 幅 切 中 要 害 地 探索 七 种 不 同 的 语言 。 本 书 就 
是 他 的 成 果 。 书 中 介绍 了 Ruby、lo、Prolog、Scala、Erlang、Clojure 和 Haskell 这 七 种 语言 ， 关 注 每 一 门 语言 的 精髓 和 特 
性 ， 重 点 解决 如 下 问题 : 这 门 语言 的 类 型 模型 是 什么 ， 编 程 范 型 是 什么 ， 如 何 与 其 交互 ， 有 了 哪些 决策 构造 和 核心 数据 结 
构 ， 有 哪些 独特 的 核心 特性 。 

在 这 个 飞速 发 展 的 信息 时 代 ， 程 序 员 仅仅 掌握 甚至 精通 一 门 语言 是 远 远 不 够 的 。 了 解 多 门 语言 蕴涵 的 思维 方式 ， 在 编 
码 中 互相 借鉴 ， 再 挑 出 一 两 门 对 自己 口味 的 语言 深入 学 习 ， 这 些 已 经 成 为 在 软件 行业 中 安身 立 命 之 本 。 从 这 个 意义 上 说 ， 
每 个 程序 员 都 应 该 看 看 这 本 《七 周 七 语言 》。 
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